Friday, October 8, 2010

Making Folder Trees

I was asked to provide a script to help someone else with creating a folder tree during a software installation.  I explained that it’s “one line of code” when using a .BAT/.CMD script with “mkdir x:\folder\folder\folder”, but I got the hand in the face, followed by “we need it to be VBscript, not DOS”.  I said “whatever” and cranked out the following hamburger pile. I hope it’s of use to someone else…

rootPath = "c:\program files"
folderPath = "vendorname\appname\folder123"
fpath = rootPath & "\" & folderPath

Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FolderExists(rootPath) Then
tmp = rootPath
For each s in Split(folderPath, "\")
tmp = tmp & "\" & s
If fso.FolderExists(tmp) Then
wscript.echo "exists: " & tmp
wscript.echo "creating: " & tmp
End If
wscript.echo "fail: root path not found = " & rootPath
End If

No comments:

Post a Comment