Problems with recursively drilling down for sub folders using FileSystemObject

Well, at best that code would only get the first level of folders, not second level.  Do you want to do the same thing with both sublevels?

~bp

This test from CSCRIPT seemed to work fine for me, got both levels now.  Not as elegant as it could be but gets the job done.

BaseFileDir = "c:\temp"
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
Set ObjFolder = ObjFSO.GetFolder(BaseFileDir)
For Each ObjSubFolder In ObjFolder.SubFolders
   i__FolderName = ObjSubFolder.name
   Wscript.Echo i__FolderName
   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
   For Each ObjSubFolder2 In ObjSubFolder.SubFolders
      i__FolderName = ObjSubFolder2.name
      Wscript.Echo "  " & i__FolderName
      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
   Next
Next

Select allOpen in new window

~bp

This is what you need  http://www.devx.com/tips/Tip/27130
dim MyFolder
MyFolder="c:\inetpub\site\somefolder\"

  Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(MyFolder)
    Set fc = f.SubFolders
    For Each f1 in fc
        s = s & f1.name
        s = s &  "<br>"
    Next
    response.write s

This is what works.... but:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%

      Dim fso
      Dim ObjOutFile
      Dim BaseFileDir
      
      'Creating File System Object
      Set fso = CreateObject("Scripting.FileSystemObject")
      
      'Create an output file
      'Set ObjOutFile = fso.CreateTextFile("OutputFiles.csv")
      
      'Writing CSV headers
      'ObjOutFile.WriteLine("Type,File Name,File Path")
      
      'Call the GetFile function to get all files
      'GetFiles("d:\content\" & Session("COMPANYID") & "\projects\" & Session("SV_PID") & "\")
      
      BaseFileDir = "d:\content\" & Session("COMPANYID") & "\projects\" & Session("SV_PID") & "\"
      
      'Close the output file
      'ObjOutFile.Close
      
      'Response.Write("Completed")

      Html = Html +  "<ul class=""jqueryFileTree"" style=""display:none;"">"&VBCRLF  
      
      'Function GetFiles(FolderName)

      ' if given folder is exists
      if fso.FolderExists("d:\content\" & Session("COMPANYID") & "\projects\" & Session("SV_PID")) then
      
            On Error Resume Next
             
            Dim ObjFolder
            Dim ObjSubFolders
            Dim ObjSubFolder
            Dim ObjFiles
            Dim ObjFile
            Dim Html
      
            Set ObjFolder = fso.GetFolder(BaseFileDir)
            Set ObjFiles = ObjFolder.Files
             
            'Getting all subfolders
            Set ObjSubFolders = ObjFolder.SubFolders
            
            For Each ObjFolder In ObjSubFolders
                  'Writing SubFolder Name and Path
                  'Response.Write("Folder," & ObjFolder.Name & "," & ObjFolder.Path) &vbCrLf

                        i__FolderName=ObjFolder.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                  


                  'Getting all Files from subfolder
                  'GetFiles(ObjFolder.Path)
            Next

            'Write all files to output files
            For Each ObjFile In ObjFiles
                  'Response.Write("File," & ObjFile.Name & "," & ObjFile.Path) &vbCrLf

               ' name
               i__FileName=ObjFile.name
               ' extension
               i__Ext = LCase(Mid(i__Name, InStrRev(i__FileName, ".", -1, 1) + 1))
               Html = Html + "<li class=""inner_li file ext_"&i__Ext&"""><a href=""#"" onclick=""setFolderName('"+(ObjFolder.Name)+"');"" rel="""+(i__FileName)+""">"+(i__FileName)+"</a></li>"&VBCRLF
                  
            Next

            Html = Html +  "</ul>"&VBCRLF

end if
      'End Function



            Response.Write Html
            
%>


What's happening is that when I click on a folder the same tree of parent folders displays under each of the 35 folders listed.  But, in reality, there are no sub folders at all!!!!

Where is my code going wrong?

Thanks.

Peter

NOTE: If I remove the "REL" attribute, nothing is displayed.

This is from JqueryFileTree from A Beautiful Site...

http://labs.abeautifulsite.net/archived/jquery-fileTree/demo/

Thanks, this is a good start. Problem:

I ran the code and all is well, BUT:           

Response.Write(IsArray(ObjFolder.Files)) = FALSE!!!

This...

For Each ObjFile In ObjFolder.Files

.... some code

Next

Doesn't work...

So why is this not gathering the files that are physically on the server, because I checked and there are indeed two text files in the Parent Dir > Sub Directory

Something is stopping the code from executing.  Could it be my server setting? It's a 1and1.com Dedicated Server 2012 and it's running VBScript and Classic ASP nicely.  with 12 GB of RAM, yeah, it's running like a champ.

There is a typo on line 18.  Change it to:
Set ObjFolder = fso.GetFolder(BaseFileDir)

Also, immediately before Response.End add the following line:

Set fso = Nothing

Select allOpen in new window

Yeah, I caught that immediately. But still no joy.

I put a Response.Write("hello world") inside the for each loop for the documents and it's NOT even getting in there.

>>Response.Write(IsArray(ObjFolder.Files)) = FALSE!!!
That is expected.  ObjFolder.Files should be a collection, not an array.  IsArray() returns True for an actual array, not for a collection.  What you can do is check the number of items it contains:

Response.Write ObjFolder.Files.Count

Select allOpen in new window

On line 13 add:
Response.Write BaseFileDir & "<br>"

1. What does it print?
2. Does it pass the test of the If ... Then clause in line 15?
3. Does the path in BaseFileDir exist?
4. Is the value of BaseFileDir within your server's Document_Root?
5. You stated that ObjFolder.Files gives you problems.  Is ObjFolder.SubFolders working?

OK, This is the PRINT out of the Accomplishments directory using the Response.Write BaseFileDir above.  This is a hard-copy direct from the treeview. So this is working 100%

Answer to Question 1:

/content/1/projects/PID585628291
Accomplishments
/content/1/projects/PID585628291/Accomplishments/
John Smith
/content/1/projects/PID585628291/Accomplishments/John%20Smith/
Test
/content/1/projects/PID585628291/Accomplishments/Test/

Answer to Question 2: YES

Answer to Question 3: YES

Answer to Question 4: YES PERFECTLY!

Answer to Question 5: ObjFolder.SubFolders is working 100%

OK, I ran the code with the Response.Write(ObjFolder.File.Count) and it gave this:

0
Accomplishments
0
John Smith
Test
0

Notice, ZERO in every directory except John Smith since John indeed has two files in the directory as I checked the server.

Hope this helps you help me

>> ZERO in every directory except John Smith...
If I understand you correctly all folders - Accomplishments, John Smith, and Test - have files in them, but only John Smith reports the correct  number of files correct?

If that is the case, then compare the permissions in John Smith against the permissions of the folders that are not working.  My guess is that there is a read permission for one of the user/group entries in John Smith that is missing in the other folders and/or you might be missing a user/group on the non-working folders.

OK, so what you're telling me is that although the documents are saving to the server, I can't see them due to a permissions problem?  So how do I get around that programatically when I create the new folders?

If you set the permissions correctly, then newly created items will inherit from the parent folder.  At this point you need to compare the permission of the working vs non-working folders.  Most likely the working folder has a User/Group and/or attribute that the non-working folders are lacking.  Once you identify that, you need to add the missing permission(s) to the parent folder and let the child objects inherit from it.

OK, thanks, so I need to get on my 1and1 dedicated server and set those perms correctly, right?

But remember, folders are created dynamically through my application.  

I'll get back to you.

Thanks

>>But remember, folders are created dynamically through my application
Just so you are clear, if you have:
D:\content

and your application is programatically creating:
D:\content\Folder1
D:\content\Folder2
...
D:\content\FolderN

If you set the permissions correctly in D:\content, then Folder1, Folder2,... FolderN would inherit said permissions.  If you are struggling getting the permissions right, your webhost should be able to help you with it.

I checked and permissions are correct and I created a folder manually and through the app. I checked the perms and sure enough, they were inherited.

I just created a new folder under the second folder that contains the two files and watched the server.

SURPRISE!!!

The server displays the folder correctly and has all the parent perms, BUT!!!!!!! and this is a big BUTT....

When I refresh the treeview, that new folder, say; FolderB, doesn't show either.

AH!!!!! So it's not a perms problem but something in the code.

Here it is from yours modified and tweaked just a wee bit:


----------------------------------------------

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
'
' jQuery File Tree ASP (VBS) Connector
' Copyright 2008 Chazzuka
' programmer@chazzuka.com
' http://www.chazzuka.com/
'
' retrive base directory
dim ObjFSO,BaseFile,Html, selectedFolder
dim BaseFileDir
      BaseFileDir = CStr(Request.Form("dir"))

      'Response.Write BaseFileDir & "<br>"

selectedFolder = CStr(Request.Form("dir"))
selectedFolder = Replace( selectedFolder, "../","")
selectedFolder = ereg_replace( selectedFolder, "(^/+|/+$)", "", True )
selectedFolder = Replace( selectedFolder, "/","\")

'Response.Write("DIR:: " & Request.Form("dir")) & vbCrlf

'Response.Write("SELECTED FOLDER:: " & selectedFolder) & vbCrlf


' create FSO
Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")

' if blank give default value
if len(BaseFileDir) = 0 then
      BaseFileDir = "/content/" & Session("COMPANYID") & "/projects/" & Session("SV_PID") & "/" & selectedFolder
end if

'Response.Write("BASEFILEDIR:: " & BaseFileDir)


' resolve the absolute path
BaseFile = Server.MapPath(BaseFileDir)&"\"

'Response.Write(BaseFile) & VBCRLF

'Replace the C:\..... with D:\
BaseFile = Replace(BaseFile,"C:\inetpub\wwwroot\","D:\")

'Response.Write("BASEFILE:: " & BaseFile) & VBCRLF


' if given folder is exists
if ObjFSO.FolderExists(BaseFile) then
       
         dim ObjFolder,ObjSubFolder,ObjFile,i__Name,i__Ext,temp,i__FileName
       
         Html = Html +  "<ul class=""jqueryFileTree"" style=""display: none;"">" & VBCRLF
       
         Set ObjFolder = ObjFSO.GetFolder(BaseFile)
       ' LOOP THROUGH SUBFOLDER
       
         For Each ObjSubFolder In ObjFolder.SubFolders
               i__Name=ObjSubFolder.name
               Html = Html + "<li class=""directory collapsed""><a href=""#"" onclick=""setFolderName('"+(i__Name)+"');setBaseFileDir('"+(BaseFileDir + i__Name)+"');"" rel=""" + (  Replace(BaseFileDir + "/" + i__Name + "/","//","/")  )+""">" + (i__Name) + "</a></li>" & VBCRLF
                   'Set ObjSubFolder = Nothing

         Next
       
         'Response.Write(ObjFolder.Files.Count)
        
         'LOOP THROUGH FILES
       For Each ObjFile In ObjFolder.Files
                  
               ' name
               i__FileName=ObjFile.name
               ' extension
               i__Ext = LCase(Mid(i__Name, InStrRev(i__FileName, ".", -1, 1) + 1))
                     ' selected folder
                     temp = "/" & selectedFolder & "/" & i__FileName
                    
                     'Response.Write("TEMP:: " & temp)
                    
               Html = Html + "<li class=""file ext_" + i__Ext + """><a href=""#"" onclick=""setFolderName('"+(ObjFolder.Name)+"');"" rel=""" + (temp) + """>" + (i__FileName) + "</a></li>" & VBCRLF
                   Set ObjFile = Nothing


         Next
         Html = Html +  "</ul>"&VBCRLF
         set ObjFolder = nothing
        
end if

Response.Write Html

Response.End

' http://www.addedbytes.com/blog/code/vbscript-regular-expressions/
Function ereg_replace(strOriginalString, strPattern, strReplacement, varIgnoreCase)
    ' Function replaces pattern with replacement
    ' varIgnoreCase must be TRUE (match is case insensitive) or FALSE (match is case sensitive)
    dim objRegExp : set objRegExp = new RegExp
    with objRegExp
        .Pattern = strPattern
        .IgnoreCase = varIgnoreCase
        .Global = True
    end with
    ereg_replace = objRegExp.replace(strOriginalString, strReplacement)
    set objRegExp = nothing
End function

%>

Takes a SECOND set of EYES and possibly your WIFE to smack you upside your head to get it. D'OH!