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 回答