FileOpenDialog需要单击两次"OK“才能返回值吗？

Question

我正在使用VBA创建一个FileOpenDialog对象，以便用户可以选择一个目录。下面是我的测试代码：

Function GetFolder(InitDir As String) As String
Dim fldr As FileDialog
Dim sItem As String
sItem = InitDir
Set fldr = Application.FileDialog(msoFileDialogFolderPicker)
With fldr
.Title = "Please select a folder, then press OK to continue"
.AllowMultiSelect = False
If Right(sItem, 1) <> "\" Then
sItem = sItem & "\"
End If
.InitialFileName = sItem
If .Show = 0 Then
    GetFolder = ""
    Exit Function
End If
If .Show <> -1 Then
sItem = InitDir
Else
sItem = .SelectedItems(1)
End If
End With
GetFolder = sItem
Set fldr = Nothing
End Function

sub test()

dim selectedDir as variant

selectedDir=getFolder("c:")
msgbox selectedDir

end sub

但是这个函数创建的对话框需要用户点击OK两次才能选择他们点击过的文件夹。有没有办法让他们只需点击OK一次？

Answer 1

您调用.Show()两次。因此，该对话框显示两次。每次你只需要点击OK一次。

只调用.Show一次，并将返回值保存到一个变量中，以便稍后测试。