标签:creat for 路径 else 对话框 目录 对话 ica ati
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
标签:creat for 路径 else 对话框 目录 对话 ica ati
原文地址:https://www.cnblogs.com/zhujie-com/p/11695608.html