[问题求助] 求大神用详细代码解释用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)
复制代码

ghost-jason

回复 2# yu2n


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

ghost-jason

谢谢啦嘿嘿

ghost-jason

回复 4# yu2n


    谢谢嘿嘿