能够选择文件或文件夹

Question

我有以下代码，但使用此代码我只能选择文件夹。我希望能够选择一个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

Answer 1

zip文件是文件，而不是（windows）文件夹，因此您必须使用：

Application.FileDialog(msoFileDialogFilePicker).Show

您不能使用相同的对话框来获取文件或文件夹。

这样想，如果双击对话框中的文件夹，是选择此文件夹还是尝试打开它（选择文件）？