China DOS Union

Not sure whether to post it or not.

'-------------vbsTree.vbs------------------------
'Description: Output the directory structure of a folder using 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, "Please select the path for which you need to list sub-items", 0)
If SelPath Is Nothing Then WScript.Quit
TreePath = SelPath.items.Item.Path
Set SelPathPath = Nothing
Set theApp = Nothing

Dim ShowSize
ShowSize = MsgBox("Do you need to display the size?", vbYesNo, "vbsTree By Slore") - 7

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
TreeStr = TreePath
On Error Resume Next 'Fault-tolerant mode (ignore special folder errors)
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) & " seconds"
MsgBox "Please check OutTree.txt in the current directory" & vbCrLf & "Time used: " & tottime, vbInformation, "Completed - 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 bytes)
├─UnInstall.exe (74KB)
├─UnInstall.ini (109 bytes)
├─Color Swatches (54KB)
│ ├─16 Colors (extended).axco (1KB)
│ ├─16 Colors.axco (343 bytes)
│ ├─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 bytes)
└─Color Tables (3KB)
├─IconWorkshop Standard.axct (768 bytes)
├─Macintosh.axct (768 bytes)
├─Web Safe.axct (768 bytes)
├─Windows XP.axct (768 bytes)
└─Windows.axct (768 bytes)

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

, Oh, thank you for sharing, I'll take it and study it. I tried it out, and it's pretty good!

Thanks for sharing.
Output the directory structure of a folder.
It would be even better if you can output the directory structure of the disk root directory (such as E:\). Currently, it can only output the file directory in E:\ and cannot output the secondary directory structure.

The test can be output. But mine is NTFS, some folder permissions are set, and it terminates when it can't get the permissions, but it can get it.

For the disk, the disk size can't be obtained because it's using the size of the folder instead of the driver.

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

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

This is a water post, I thought of something

W smile A love L optimism F relax R enthusiasm
Walfr

Just not as elegant as Slore

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

This is a water post, I thought of something

W for smile, A for love, L for optimism, F for relaxation, R for enthusiasm
Walfr

Just not as fancy as slore :(

Walfr doesn't look like an English word at all. Where is there a word ending with fr? At least I haven't seen any.

I'm郁闷...
Don't have edit privileges... That didn't expect it to be that long...

HAT saw and deleted that code segment for drive traversal =. =

Hehe, that means first there's Slore and then looking for it, so it's easy to find.

Good

There is a problem on my computer

Are you selecting a folder?

"Desktop", is there a problem?

That returns a special folder number. Someone else has modified it to support that kind, but mine is not processed in the original version. You can just expand and select it on my computer...

I have tested here that only part of the directories can be listed, and many cannot be listed. What's the matter?

I use this script to list the directory tree of all files and folders on drive E. There are many files on drive E, and it can only list the first four folders and the directory structure, and the following ones cannot be listed. What's the matter?