中国DOS联盟

不知道当发不发。

'-------------vbsTree.vbs------------------------
'描述:用vbs输出一个文件夹的目录结构。
' By Slore @ 2008-12-26
'------------------------------------------------

Const Unit4Size = "字节KBMBGB"
Const OutFile = "OutTree.txt"

Dim theApp,SelPath,TreePath,TreeStr

Set theApp = CreateObject("Shell.Application")
Set SelPath = theApp.BrowseForFolder(0,"请选择需要列出子项目的路径",0)
If SelPath Is Nothing Then WScript.Quit
TreePath = SelPath.items.Item.Path
Set SelPathPath = Nothing
Set theApp = Nothing

Dim ShowSize
ShowSize = MsgBox("是否需要显示大小?",vbYesNo,"vbsTree By Slore") - 7

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
TreeStr = TreePath
on Error Resume Next '容错模式(忽略特殊文件夹错误)
If ShowSize Then TreeStr = TreeStr & FormatSize(objFSO.GetFolder(TreePath).Size)
TreeStr = TreeStr & vbCrLf
starttime = Timer
Tree TreePath,""
endtime = Timer
Set objFile = objFSO.CreateTextFile(OutFile,True)
objFile.Write TreeStr
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
tottime = endtime - starttime
tottime = FormatNumber(tottime,3,True) & "秒"
MsgBox "请查看当前目录下的OutTree.txt" & vbCrLf & "用时:" & tottime,vbInformation,"完成 - vbsTree"

Sub Tree(Path,SFSpace)
Dim i,TempStr,FlSpace
FlSpace = SFSpace & " "
Set CrntFolder = objFSO.GetFolder(Path)
i = 0:TempStr = "├─"
For Each ConFile In CrntFolder.Files
i = i + 1
If i = CrntFolder.Files.Count And CrntFolder.SubFolders.Count = 0 Then TempStr = "└─"
TreeStr = TreeStr & FlSpace & Tempstr & ConFile.Name
If ShowSize Then TreeStr = TreeStr & FormatSize(ConFile.Size)
TreeStr = TreeStr & vbCrLf
Next
i = 0:TempStr = "├─"
SFSpace = FlSpace & "│"
For Each SubFolder In CrntFolder.SubFolders
i = i + 1
If i = CrntFolder.SubFolders.Count Then
TempStr = "└─"
SFSpace = FlSpace & " "
End If
TreeStr = TreeStr & FlSpace & TempStr & SubFolder.Name
If ShowSize Then TreeStr = TreeStr & FormatSize(SubFolder.size)
TreeStr = TreeStr & vbCrLf
Tree SubFolder,(SFSpace)
Next
End Sub

Function FormatSize(SZ)
Dim i
Do While SZ > 1024
i = i + 1
SZ = SZ \ 1024
Loop
FormatSize = " (" & SZ & Mid(Unit4Size,1 + 2 * i,2) & ")"
End Function

E:\IconWorkShop (11MB)
├─axlibico.dll (383KB)
├─Axstdctl.dll (18KB)
├─Context.hlp (68KB)
├─IconWorkshop.exe (5MB)
├─Main.chm (4MB)
├─MediaFiles.axd (4KB)
├─ResChs.dll (388KB)
├─sn.txt (32字节)
├─UnInstall.exe (74KB)
├─UnInstall.ini (109字节)
├─Color Swatches (54KB)
│ ├─16 Colors (extended).axco (1KB)
│ ├─16 Colors.axco (343字节)
│ ├─Dark Hues.axco (3KB)
│ ├─Default (large).axco (6KB)
│ ├─Default (small).axco (3KB)
│ ├─Grayscale (128 levels).axco (1KB)
│ ├─Grayscale (256 levels).axco (3KB)
│ ├─IconWorkshopSwatches (3KB)
│ ├─Medium Hues.axco (3KB)
│ ├─Pastel Hues.axco (3KB)
│ ├─Photoshop Default.axco (1KB)
│ ├─Pure Hues.axco (3KB)
│ ├─Spectrum (variable lightness).axco (6KB)
│ ├─Spectrum (variable saturation).axco (6KB)
│ ├─Spectrum.axco (3KB)
│ ├─Web Safe by VisiBone.axco (3KB)
│ ├─Web Safe.axco (2KB)
│ └─Windows XP.axco (376字节)
└─Color Tables (3KB)
├─IconWorkshop Standard.axct (768字节)
├─Macintosh.axct (768字节)
├─Web Safe.axct (768字节)
├─Windows XP.axct (768字节)
└─Windows.axct (768字节)

[ Last edited by slore on 2008-12-26 at 20:25 ]

,哦哦，感谢分享，收下学习了，试用了一下，不错呢！

谢谢分享
输出一个文件夹的目录结构。
如果要是能 输出磁盘根目录(如:E:\) 的目录结构就更好了
现在只能输出 E:\ 中的文件目录 不能输出次级目录结构

测试可以输出。不过我的是NTFS的，有些文件夹权限有设置，遇到不能获取
权限的就终止了，但是能得到。

磁盘的话磁盘大小会得不到，因为用的是取文件夹的size不是driver的。

[ Last edited by HAT on 2009-1-2 at 21:28 ]

S smile 微笑,L love 爱,O optimism 乐观,R relax 放松,E enthusiasm 热情...Slore

此乃水贴,我想到一个东西

W 微笑 A 爱 L 乐观 F 放松 R 热情
Walfr

就是没有slore华丽

Originally posted by 523066680 at 2009-1-2 03:55 PM:

此乃水贴,我想到一个东西

W 微笑 A 爱 L 乐观 F 放松 R 热情
Walfr

就是没有slore华丽 :(

Walfr一看就不像英文单词，哪儿有fr结尾的啊……至少我是没见过。

我郁闷。。。
没有编辑权限……那个没想到那么长。。。

HAT看到了把那个 驱动器遍历的code段删除掉＝。＝

呵呵，那个是先有Slore再找的意思，所以好找。

Done ^_^

好啊！

在我电脑上出现问题

你选的是文件夹么？

“桌面”，有问题吗？

那个返回的是特殊文件夹标号，有别人给改过可以支持那种的，我这个原版没处理。

你在我的电脑展开选到就可以了。。。

我这里测试只能列出部分目录，很多都无法列出来，怎么回事?

我使用这个脚本列出E盘所有文件及文件夹的目录树，E盘文件很多，只能列出前四个文件夹以及目录结构，后面的都列不出来，怎么回事？