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:\ 下面有什么文件（夹）

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

ghost-jason

回复 22# yu2n


    谢谢大神

ghost-jason

回复 9# ghost-jason


    遍历代码分析。自己分析

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  也就是当前脚本所在的父文件夹的路径
复制代码