0

次のコードがありますが、これを使用するとフォルダーのみを選択できます。zip ファイルも選択できるようにしたい (フォルダでない場合)

Function GetFolder() As String
    Dim fldr As FileDialog
    Dim sItem As String
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
    With fldr
        .Title = "Select a  file"
        .AllowMultiSelect = False 
        .Filters.Clear 
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)
    End With
    GetFile = sItem
    Set fldr = Nothing
End Function
4

1 に答える 1

1

zip ファイルは (windows) フォルダーではなくファイルであるため、次を使用する必要があります。

Application.FileDialog(msoFileDialogFilePicker).Show

同じダイアログを使用して、ファイルまたはフォルダーを取得することはできません。

ダイアログでフォルダをダブルクリックした場合、このフォルダを選択しているのか、それとも(ファイルを選択するために)開こうとしているのですか?

于 2013-10-28T20:50:06.307 に答える