{"id":1310,"date":"2009-03-24T07:00:55","date_gmt":"2009-03-24T15:00:55","guid":{"rendered":"http:\/\/www.sapien.com\/blog\/2009\/03\/24\/up-a-tree\/"},"modified":"2009-03-24T07:00:55","modified_gmt":"2009-03-24T15:00:55","slug":"up-a-tree","status":"publish","type":"post","link":"https:\/\/dev.sapien.com\/blog\/2009\/03\/24\/up-a-tree\/","title":{"rendered":"Up a Tree"},"content":{"rendered":"

\"MPj04372960000[1]\"<\/a> One of the first CMD commands I fell in love with (yes I’m that geeky) was TREE. When executed from a command prompt it would give you a nice graphical representation of the directory structure. Never being satisfied I wrote a VBScript version years ago.  I decided to dust it off and tweak it some. Here is TREE.VBS. <\/p>\n

\n
\n
On<\/span> Error<\/span> Resume<\/span> Next<\/span><\/pre>\n
 <\/pre>\n
If<\/span> WScript.Arguments.Named.Exists(\"Path\"<\/span>) Then<\/span><\/pre>\n
    strFolder=WScript.Arguments.Named.Item(\"Path\"<\/span>)<\/pre>\n
Else<\/span><\/pre>\n
    Set<\/span> objShell = CreateObject(\"WScript.shell\"<\/span>)<\/pre>\n
    strTemp = objShell.ExpandEnvironmentStrings(\"%TEMP%\"<\/span>)<\/pre>\n
    strFolder=strTemp<\/pre>\n
End<\/span> If<\/span><\/pre>\n
 <\/pre>\n
nTabLevel=0<\/pre>\n
 <\/pre>\n
Set<\/span> objFSO=CreateObject(\"Scripting.FileSystemObject\"<\/span>)<\/pre>\n
 <\/pre>\n
if<\/span> objFSO.FolderExists(strFolder) then<\/span><\/pre>\n
 <\/pre>\n
    Set<\/span> objFolder=objFSO.GetFolder(strFolder)<\/pre>\n
    WScript.Echo objFolder & \" (\"<\/span> & objFolder.Files.count &_<\/pre>\n
 \" files \"<\/span> & FormatNumber(objFolder.Size\/1024,2) & \" KB)\"<\/span><\/pre>\n
 <\/pre>\n
    Call<\/span> ProcessSubFolders(nTabLevel,objFolder)<\/pre>\n
 <\/pre>\n
else<\/span><\/pre>\n
    wscript.echo \"Failed to find \"<\/span> & strFolder<\/pre>\n
end<\/span> if<\/span><\/pre>\n
 <\/pre>\n
'END MAIN SCRIPT<\/span><\/pre>\n
 <\/pre>\n
 <\/pre>\n
Sub<\/span> ProcessSubFolders(nTabLevel,objFolder)<\/pre>\n
On<\/span> Error<\/span> Resume<\/span> Next<\/span><\/pre>\n
   nTabLevel = nTabLevel +1<\/pre>\n
 <\/pre>\n
    Set<\/span> colSubs=objFolder.SubFolders<\/pre>\n
    For<\/span> Each<\/span> folder In<\/span> colSubs<\/pre>\n
      Set<\/span> colFiles=folder.files<\/pre>\n
 <\/pre>\n
       WScript.Echo String<\/span>(nTabLevel,\" \"<\/span>) & \"|\"<\/span> &_<\/pre>\n
       String<\/span>(nTabLevel,\"_\"<\/span>) & folder.name &_<\/pre>\n
       \" (\"<\/span> & colFiles.count & \" files \"<\/span> &_<\/pre>\n
       FormatNumber(folder.size\/1024,2) & \" KB)\"<\/span><\/pre>\n
     <\/pre>\n
       'recurse through subfolders <\/span><\/pre>\n
       ProcessSubFolders ntabLevel,folder<\/pre>\n
    Next<\/span><\/pre>\n
    <\/pre>\n
    nTabLevel=nTabLevel-1<\/pre>\n
End<\/span> Sub<\/span><\/pre>\n
 <\/pre>\n<\/div>\n<\/div>\n
You must run this with CSCRIPT from the command prompt. The usage syntax is pretty simple:<\/p>\n
cscript tree.vbs \/path:<somefolder><\/font><\/p>\n
The default path is %TEMP%. I use the Wscript.Arguments object to pass a runtime parameter and set a default using the Wscript.Shell object’s ExpandEnvironmentStrings()<\/strong> method.<\/p>\n
\n
\n
If<\/span> WScript.Arguments.Named.Exists(\"Path\"<\/span>) Then<\/span><\/pre>\n
    strFolder=WScript.Arguments.Named.Item(\"Path\"<\/span>)<\/pre>\n
Else<\/span><\/pre>\n
    Set<\/span> objShell = CreateObject(\"WScript.shell\"<\/span>)<\/pre>\n
    strTemp = objShell.ExpandEnvironmentStrings(\"%TEMP%\"<\/span>)<\/pre>\n
    strFolder=strTemp<\/pre>\n
End<\/span> If<\/pre>\n<\/div>\n<\/div>\n
The script uses the FileSystemObject to retrieve the folder, if it exists and displays the folder name, the total number of files in the immediate folder and the folder size.<\/p>\n
\n
\n
Set<\/span> objFSO=CreateObject(\"Scripting.FileSystemObject\"<\/span>)<\/pre>\n
 <\/pre>\n
if<\/span> objFSO.FolderExists(strFolder) then<\/span><\/pre>\n
 <\/pre>\n
    Set<\/span> objFolder=objFSO.GetFolder(strFolder)<\/pre>\n
    WScript.Echo objFolder & \" (\"<\/span> & objFolder.Files.count &_<\/pre>\n
 \" files \"<\/span> & FormatNumber(objFolder.Size\/1024,2) & \" KB)\"<\/span><\/pre>\n<\/div>\n<\/div>\n
The folder size is formatted in KB. Now the fun part. I have a subroutine that takes a level indicator and a path as parameters.<\/p>\n
\n
\n
nTabLevel=0<\/pre>\n
Call<\/span> ProcessSubFolders(nTabLevel,objFolder)<\/pre>\n<\/div>\n<\/div>\n
The subroutine increments the tab level by one and then returns a collection of subfolders.<\/p>\n
\n
\n
Sub<\/span> ProcessSubFolders(nTabLevel,objFolder)<\/pre>\n
On<\/span> Error<\/span> Resume<\/span> Next<\/span><\/pre>\n
   nTabLevel = nTabLevel +1<\/pre>\n
 <\/pre>\n
    Set<\/span> colSubs=objFolder.SubFolders<\/pre>\n
    For<\/span> Each<\/span> folder In<\/span> colSubs<\/pre>\n
      Set<\/span> colFiles=folder.files<\/pre>\n<\/div>\n<\/div>\n
For each subfolder I create a tree indicator using something like |_____ before the folder name. The length of the underscore and indentation is determined by the level the script is processing.<\/p>\n
\n
\n
WScript.Echo String<\/span>(nTabLevel,\" \"<\/span>) & \"|\"<\/span> &_<\/pre>\n
  String<\/span>(nTabLevel,\"_\"<\/span>) & folder.name &_<\/pre>\n
  \" (\"<\/span> & colFiles.count & \" files \"<\/span> &_<\/pre>\n
  FormatNumber(folder.size\/1024,2) & \" KB)\"<\/span><\/pre>\n<\/div>\n<\/div>\n
The display includes the foldername, how many files it has and total size. These values are only for the files immediately within the folder. To keep going I recursively call the function for any subfolders.<\/p>\n
\n
\n
'recurse through subfolders <\/span><\/pre>\n
 ProcessSubFolders ntabLevel,folder<\/pre>\n
next<\/pre>\n<\/div>\n<\/div>\n
After processing any subfolders, the level counter is decremented by 1.<\/p>\n
\n
\n
nTabLevel=nTabLevel-1<\/pre>\n<\/div>\n<\/div>\n
Running the script gives output like this:<\/p>\n
C:\\test (188 files 15,609.59 KB)
|_foo2 (2 files 812.00 KB)
|_lsi2k8 (12 files 576.01 KB)
|_polymon (2 files 2,336.00 KB)<\/font> <\/p>\n
The script will ignore any folders it can’t access. Vista is notoriously difficult for this sort of thing with all of its junction points so don’t take this output as 100% accurate. Still, I think is fun. Did I mention I’m kinda geeky?<\/p>\n<\/p>\n
\n
Download the script here.<\/a><\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
One of the first CMD commands I fell in love with (yes I’m that geeky) was TREE. When executed from a command prompt it would give you a nice graphical representation of the directory structure. Never being satisfied I wrote a VBScript version years ago.  I decided to dust it off and tweak it some. Here is TREE.VBS.<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[24],"tags":[33,482,480,481,378,57,996],"class_list":["post-1310","post","type-post","status-publish","format-standard","hentry","category-vbscript","tag-cmd","tag-cscript","tag-filesystemobject","tag-folders","tag-recursion","tag-scripting","tag-vbscript"],"jetpack_featured_media_url":"","_links":{"self":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts\/1310","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/comments?post=1310"}],"version-history":[{"count":0,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/posts\/1310\/revisions"}],"wp:attachment":[{"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/media?parent=1310"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/categories?post=1310"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/dev.sapien.com\/blog\/wp-json\/wp\/v2\/tags?post=1310"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}