vbs如何实现输出指定路径/目录/文件夹下所有子文件夹及文件的路径

ghost-jason

回复 12# DAIC


    恩恩。我对递归确实不是很了解。请问哪里有那方面的资料

ghost-jason

回复 13# yu2n


    恩恩。我试了这个代码确实厉害。效果不错。膜拜大神

DAIC

回复 16# ghost-jason


http://baike.baidu.com/view/96473.htm

ghost-jason

回复 18# DAIC


    谢了

ghost-jason

回复 13# yu2n


    大神我是菜鸟。那个长代码我会用了。这个短的咋调用了

yu2n

回复 15# ghost-jason

1. 那是【函数】Function（【过程】Sub）的【参数】，也是一种【变量】。
2. 函数自身调用自身，这里是【递归】。要掌握【函数返回值】的运用。

注：符号【】里面的内容必须掌握。

yu2n

回复 20# ghost-jason

函数 ScanFolder(ByVal strPath)
功能：获取指定路径下（参数）所有文件（夹）的路径，保存到一个字符串，函数将返回这个字符串。
使用：例如要知道 D:\ 下面有什么文件（夹）

1. 
   
2. Dim strPath, strInfo
   
3. strPath = "D:"
   
4. strInfo = ScanFolder(strPath)
   
5. Msgbox strInfo
   

复制代码

ghost-jason

回复 22# yu2n


    谢谢大神

ghost-jason

回复 9# ghost-jason


    遍历代码分析。自己分析

1. Function getfolderpathone    '起个容易理解的函数名
   
2. Set fso = CreateObject("scripting.filesystemobject") '创建文件系统对象
   
3. getfolderpathone = fso.GetParentFolderName(WScript.ScriptFullName) '得到当前脚本的父路径（绝对路径）
   
4. End Function
   
5. 
   
6. Function getfolderpath(test) '创建遍历函数名称
   
7. Set fso = CreateObject("scripting.filesystemobject")'同样创建文件系统对象
   
8. Set folderpath = fso.GetFolder(test)                  '得到当前单个文件夹的路径
   
9. Set subfolders = folderpath.SubFolders                    '获取的个文件夹下多个个子文件夹路径
   
10. For Each subfolder In subfolders                         '遍历一个一个显示单个子文件存储到一个变量当中
    
11. getfolderpath= subfolder.Path & vbcrlf  & getfolderpath & getfolderpath(subfolder.Path) '得到单个子文件夹的路径
    
12. 'getfolderpath(subfolder.Path)  至于这个函数test=subfolder.path 起到循环子文件夹下个子文件夹
    
13. next
    
14. End Function
    
15. MsgBox getfolderpath(getfolderpathone) '这个函数实际上  test = getfolderhone  也就是当前脚本所在的父文件夹的路径

复制代码