[问题求助] 求大神用详细代码解释用vbs脚本怎么遍历目录

ghost-jason

以下代码是从网上下载的看不懂求解释，怎么用vbs脚本遍历目录。貌似很多地方都没提到郁闷

Function GetCurrentFolderFullPath  

    Set fso = CreateObject("Scripting.FileSystemObject")  
   GetCurrentFolderFullPath = fso.GetParentFolderName(WScript.ScriptFullName)  
 End Function  
  Function GetSubFolders(currentFolderFullPath)  
    Set fso = CreateObject("Scripting.FileSystemObject")  
    Set currentFolder = fso.GetFolder(currentFolderFullPath)  
    Set subFolderSet = currentFolder.SubFolders  
    For Each subFolder in subFolderSet  
        'MsgBox "subFolder.Path=" & subFolder.Path   
        GetSubFolders = subFolder.Path & vbcrlf  &  GetSubFolders  & GetSubFolders(subFolder.Path)   
         Next  
End Function  
MsgBox GetSubFolders(GetCurrentFolderFullPath)
复制代码

yu2n

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

ghost-jason

回复 2# yu2n


    GetSubFolders()这个函数式自定义函数是吧？我是不明白GetSubFolders(GetCurrentFolderFullPath) 的里面的这个GetCurrentFolderFullPath 不是应该写成这个GetSubFolders(currentFolderFullPath) 吗？？？？

yu2n

回复 3# ghost-jason

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

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

ghost-jason

谢谢啦嘿嘿

ghost-jason

回复 4# yu2n


    谢谢嘿嘿