Vbstree vbs script simulates the tree command

Time:2022-5-7

Copy codeThe code is as follows:


‘————-vbsTree.vbs————————
‘description: output the directory structure of a folder with VBS.
‘————————————————
Const unit4size = “kbmbgb bytes”
Const OutFile = “OutTree.txt”
Dim theApp,SelPath,TreePath,TreeStr
Set theApp = CreateObject(“Shell.Application”)
Set SelPath = theApp. Browseforfolder (0, “please select the path where you want to list subprojects”, 0)
If SelPath Is Nothing Then WScript.Quit
TreePath = SelPath.items.Item.Path
Set SelPathPath = Nothing
Set theApp = Nothing
Dim objFSO
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
TreeStr = TreePath & FormatSize(objFSO.GetFolder(TreePath).Size) & vbCrLf
Tree TreePath,””
Set objFile = objFSO.CreateTextFile(OutFile,True)
objFile.Write TreeStr
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
Msgbox “view outtree.txt in the current directory”, vbinformation, “finish – 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 & FormatSize(ConFile.size) & vbCrLf
Next
i = 0:TempStr = “├─”
For Each SubFolder In CrntFolder.SubFolders
i = i + 1
If i = CrntFolder.SubFolders.Count Then
TempStr = “└─”
SFSpace = FlSpace & ” “
Else
SFSpace = FlSpace & “│”
End If
TreeStr = TreeStr & FlSpace & TempStr & SubFolder.name & FormatSize(SubFolder.size) & 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


Optimized code for folder browsing

Copy codeThe code is as follows:


‘————-vbsTree.vbs————————
‘description: output the directory structure of a folder with VBS.
‘————————————————
Const unit4size = “kbmbgb bytes”
Const OutFile = “OutTree.txt”
Dim TreePath,TreeStr,WS
Set WS = WScript.CreateObject(“WScript.Shell”)
Treepath = BFF (“please select the path to list the subprojects”, & h0001 + & h0008 + & h0010, “”)
Set WS = Nothing
If Len(TreePath) = 0 Then WScript.Quit
If len (treepath) < = 3 then msgbox “cannot process root directory!”, 64, “prompt”: Wscript Quit

Dim objFSO
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
TreeStr = TreePath & FormatSize(objFSO.GetFolder(TreePath).Size) & vbCrLf
Tree TreePath,””
Set objFile = objFSO.CreateTextFile(OutFile,True)
objFile.Write TreeStr
objFile.Close
Set objFile = Nothing
Set objFSO = Nothing
Msgbox “view outtree.txt in the current directory”, vbinformation, “finish – 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 & FormatSize(ConFile.size) & vbCrLf
Next
i = 0:TempStr = “├─”
For Each SubFolder In CrntFolder.SubFolders
i = i + 1
If i = CrntFolder.SubFolders.Count Then
TempStr = “└─”
SFSpace = FlSpace & ” “
Else
SFSpace = FlSpace & “│”
End If
TreeStr = TreeStr & FlSpace & TempStr & SubFolder.name & FormatSize(SubFolder.size) & 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

Function BFF(title, flag, dir)
On Error Resume Next
Dim oShell, oItem, oStr
Set oShell = WScript.CreateObject(“Shell.Application”)
Set oItem = oShell.BrowseForFolder(&H0, title, flag, dir)
oStr = oItem.Title
If Err <> 0 Then
Set oShell = Nothing
Set oItem = Nothing
Exit Function
End If

If InStr(oStr, “:”) Then
BFF = mid(oStr,InStr(oStr, “:”)-1, 2)
Else
Select Case oStr
Case “desktop”
BFF = WS.SpecialFolders(“Desktop”)
Case “My Documents”
BFF = WS.SpecialFolders(“MyDocuments”)
Case “my computer”
Msgbox “invalid directory!”, 64, “prompt”: Wscript Quit
Case “network neighborhood”
Msgbox “invalid directory!”, 64, “prompt”: Wscript Quit
Case Else
BFF = oItem.ParentFolder.ParseName(oItem.Title).Path
End Select
End If
Set oShell = Nothing
Set oItem = Nothing
If Right(BFF,1)<> “\” Then
BFF = BFF & “\”
End If
On Error GoTo 0
End Function