yu2n

函数 GetCurrentFolderFullPath() 功能是获取指定脚本文件所在的目录(字符串)
函数 GetSubFolders() 功能是获取指定的目录下的子目录路径(字符串，多个子目录路径使用vbCrLf连接)

yu2n

回复 3# ghost-jason

' 写法一
Dim str01, str02, str03
str01 = GetCurrentFolderFullPath()
str02 = GetSubFolders(str01)
msgbox str02

' 写法二
str03 = GetSubFolders(GetCurrentFolderFullPath())
msgbox str03
复制代码