内容显示页
 
类别:ASP+VBS | 浏览(2536) | 2008-1-14 22:42:04

'vbs直接在控制台显示出遍历后的文件及文件夹,当然您可以修改让其输入到文件或更改显示方式。
Function FilesTree(sPath)
'遍历一个文件夹下的所有文件夹文件夹
    Set oFso = CreateObject("Scripting.FileSystemObject")
    Set oFolder = oFso.GetFolder(sPath)
    Set oSubFolders = oFolder.SubFolders
    
    Set oFiles = oFolder.Files
    For Each oFile In oFiles
        WScript.Echo oFile.Path
        'oFile.Delete
    Next
    
    For Each oSubFolder In oSubFolders
        WScript.Echo oSubFolder.Path
        'oSubFolder.Delete
        FilesTree(oSubFolder.Path)'递归
    Next
    
    Set oFolder = Nothing
    Set oSubFolders = Nothing
    Set oFso = Nothing
End Function

FilesTree("F:\deltest\deltest") '遍历

引用本页地址:http://www.yongfa365.com/item/BianLiYiGeWenJianJiaXiaDeSuoYouWenJianJiaWenJianJiaTree.vbs.html
 
 
相关链接
 
网友评论:
1 缘源 - 2008-2-14 12:44:06
我觉得应该生成一个文本文件,而不是一个一个的弹出对话框
 
2 yongfa365 - 2008-2-15 21:14:09
呵呵,生成一个文件看起来就麻烦喽,vbs文件可以这么运行:cscript Tree.vbs,这样一来WScript.Echo 就是显示在命令行了,看起来很方便的,这就是msgbox及WScript.Echo不同的地方了,你可以试试看.
 
姓名: 记住我
网址:
邮箱:
内容:
验证码:  验证码图片 看不清? 换张图试试
 
     
 
 
文章分类
 
 
.Net + C#(73)
 
 
ASP+VBS(161)
 
 
 
Linux(10)
 
 
 
web 2.0(26)
 
 
 
 
 
心程(68)
 
生活(97)
 
 
     

Power by :柳永法(yongfa365)'Blog  | 京ICP备07011491号  QQ:64049027  E-mail:64049027@qq.com yongfa365'CodePlex yongfa365'CodeGoogle

申请友情链接 要求:跟本站主题相类似正规网站,双方交换为首页位置

转载请注明来源,以便后人及时得到最新、修正、加强版!!!