Sub 文件夹路径()
Dim fp$, obmapp As Object
Set obmapp = CreateObject("Shell.Application").BrowseForFolder(0, "请选择文件目录：", 0, 0)
If Not obmapp Is Nothing Then
fp = obmapp.Self.Path & ""
Else
Exit Sub
End If
MsgBox fp
End Sub
原文：https://www.cnblogs.com/zhujie-com/p/11695608.html