求大神用详细代码解释用vbs脚本怎么遍历目录

ghost-jason · 发表于 2014-10-4 11:45:24

以下代码是从网上下载的看不懂求解释，怎么用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:06

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

ghost-jason · 发表于 2014-10-5 10:27:40

回复 2# yu2n

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

yu2n · 发表于 2014-10-5 13:56:27

回复 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:44

谢谢啦嘿嘿

ghost-jason · 发表于 2014-10-22 13:13:12

回复 4# yu2n

谢谢嘿嘿

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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

浏览过的版块