Dim strPath, strInfo
strPath = "D:\"
strInfo = ScanFolder(strPath)
Msgbox strInfo
复制代码

Function getfolderpathone    '起个容易理解的函数名
Set fso = CreateObject("scripting.filesystemobject") '创建文件系统对象
 getfolderpathone = fso.GetParentFolderName(WScript.ScriptFullName) '得到当前脚本的父路径（绝对路径）
 End Function

Function getfolderpath(test) '创建遍历函数名称
Set fso = CreateObject("scripting.filesystemobject")'同样创建文件系统对象
Set folderpath = fso.GetFolder(test)                  '得到当前单个文件夹的路径
Set subfolders = folderpath.SubFolders                    '获取的个文件夹下多个个子文件夹路径
For Each subfolder In subfolders                         '遍历一个一个显示单个子文件存储到一个变量当中
getfolderpath= subfolder.Path & vbcrlf  & getfolderpath & getfolderpath(subfolder.Path) '得到单个子文件夹的路径
'getfolderpath(subfolder.Path)  至于这个函数test=subfolder.path 起到循环子文件夹下个子文件夹
next
End Function
MsgBox getfolderpath(getfolderpathone) '这个函数实际上  test = getfolderhone  也就是当前脚本所在的父文件夹的路径
复制代码