Problems with recursively drilling down for sub folders using FileSystemObject
Posted on 2013-06-19
This is minor, and I know it's a pain.... but I have this connector code from Chazzuka.com and it worked until I moved everything over to another server.
I have a series of folders on the file system and I indeed get all the parent folders for a specific company ID, but that's where it stops. I control the server and I know that there are more than one folder per parent project folder.
I'm using Windows Server 2012 which is really not bad at all.
The code is VBScript and using CLASSIC ASP. But the base code is VBScript so ignore the CLASSIC ASP Part.
Set ObjFolder = ObjFSO.GetFolder(BaseFileDir)
For Each ObjSubFolder In ObjFolder.SubFolders
i__FolderName = ObjSubFolder.name
Html = Html + "<li class=""first_li directory collapsed""><a href=""#"" onclick=""setFolderName('"+(i__FolderName)+"');setBaseFileDir('"+(BaseFileDir+i__FolderName)+"');"" rel="""+(BaseFileDir+i__FolderName+"/")+""">"+(i__FolderName)+"</a></li>"&VBCRLF
Cut an paste into your favorite editor for clarity.
So, I need to drill down into the parent folder and children and grandchildren, if Exists.
|--Child 2 and so on.... get me?
but all I get is PARENT. When I click on the file tree explorer I get no errors whatsoever, using CHROME for debugging.
Please help, I need to do a demo tomorrow and need to get this working tonight.