返回列表 发帖
ghost-jason

Rank: 1

帖子
31 
积分
47 
技术
0  
捐助
0  
注册时间
2013-12-28 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 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)COPY
收藏 分享

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
2楼
发表于 2014-10-4 17:57 | 只看该作者
函数 GetCurrentFolderFullPath() 功能是获取指定脚本文件所在的目录(字符串)
函数 GetSubFolders() 功能是获取指定的目录下的子目录路径(字符串，多个子目录路径使用vbCrLf连接)
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

ghost-jason

Rank: 1

帖子
31 
积分
47 
技术
0  
捐助
0  
注册时间
2013-12-28 
3楼
发表于 2014-10-5 10:27 | 只看该作者
回复 2# yu2n


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

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
4楼
发表于 2014-10-5 13:56 | 只看该作者
回复 3# ghost-jason 
' 写法一
Dim str01, str02, str03
str01 = GetCurrentFolderFullPath()
str02 = GetSubFolders(str01)
msgbox str02
 
' 写法二
str03 = GetSubFolders(GetCurrentFolderFullPath())
msgbox str03COPY
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

ghost-jason

Rank: 1

帖子
31 
积分
47 
技术
0  
捐助
0  
注册时间
2013-12-28 
5楼
发表于 2014-10-22 13:12 | 只看该作者
谢谢啦嘿嘿

TOP

ghost-jason

Rank: 1

帖子
31 
积分
47 
技术
0  
捐助
0  
注册时间
2013-12-28 
6楼
发表于 2014-10-22 13:13 | 只看该作者
回复 4# yu2n


    谢谢嘿嘿

TOP

返回列表