vba - 能够选择文件或文件夹

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

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

这样想，如果你在对话框中双击一个文件夹，你是在选择这个文件夹还是试图打开它（选择一个文件）？