FileDialog(msoFileDialogFolderPicker) - 如何将初始路径设置为“root”“这台电脑”

VBA

使用VBA代码设置初始路径为“root”/“这台电脑”

在VBA编程中，我们可以使用FileDialog对象来创建一个文件对话框，用于选择文件夹路径。默认情况下，该对话框显示的初始路径是最近访问的文件夹。但是，如果我们希望将初始路径设置为“root”或“这台电脑”，我们可以通过以下方法实现。

首先，我们需要引用Microsoft Office库中的“Microsoft Office 16.0 Object Library”，以便能够使用FileDialog对象。接下来，我们可以使用下面的代码来设置初始路径为“root”或“这台电脑”。

VBA
Sub SelectFolder()
    Dim fd As FileDialog
    Dim selectedPath As String
    
    ' 创建一个文件夹选择对话框
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    
    ' 设置对话框的初始路径为“root”或“这台电脑”
    fd.InitialFileName = "::{20D04FE0-3AEA-1069-A2D8-08002B30309D}"
    
    ' 显示对话框
    If fd.Show = -1 Then
        ' 获取选择的文件夹路径
        selectedPath = fd.SelectedItems(1)
        
        ' 输出选择的文件夹路径
        MsgBox "选择的路径为: " & selectedPath
    End If
    
    ' 清除对象引用
    Set fd = Nothing
End Sub

运行上述代码后，将会弹出一个文件夹选择对话框，并且初始路径将被设置为“root”或“这台电脑”。用户可以通过该对话框选择文件夹，并且选择的路径将会在一个消息框中显示。

案例

假设我们正在开发一个excel工具，用户可以使用该工具选择一个文件夹，并在该文件夹中创建一个新的excel文件。在这种情况下，我们希望将文件夹选择对话框的初始路径设置为“root”或“这台电脑”，以方便用户快速浏览整个文件系统。

在我们的excel工具中，我们可以添加一个按钮，用户点击该按钮时将会触发上述VBA代码。当用户选择一个文件夹后，我们可以在代码中处理选择的文件夹路径，并在新的excel文件中执行进一步的操作。

通过使用上述VBA代码，我们可以很容易地将初始路径设置为“root”或“这台电脑”，以提高用户的使用体验和效率。无论是开发excel工具还是其他需要用户选择文件夹路径的应用程序，我们都可以使用这种方法来设置初始路径，以满足用户的需求。