批处理之家 - Powered by Discuz! Board

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

作者: ghost-jason 时间: 2014-10-4 11:45 标题: 求大神用详细代码解释用vbs脚本怎么遍历目录

以下代码是从网上下载的看不懂求解释，怎么用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 时间: 2014-10-4 17:57

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

作者: ghost-jason 时间: 2014-10-5 10:27

回复 2# yu2n

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

作者: yu2n 时间: 2014-10-5 13:56

回复 3# ghost-jason

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

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

作者: ghost-jason 时间: 2014-10-22 13:12

谢谢啦嘿嘿

作者: ghost-jason 时间: 2014-10-22 13:13

回复 4# yu2n

谢谢嘿嘿

欢迎光临批处理之家 (http://bbs.bathome.net/)