?
Solved

fso & subFolders question (loop through folder and subfolders to display files)

Posted on 2008-06-18
3
Medium Priority
?
1,189 Views
Last Modified: 2010-04-21
I am having a little trouble with the good ol fso fubfolder looping.  Here is what my folder structure looks like

Images
    accessories
           image 1
           image 2
    speakers
           image 1
           image 2
    car audio
           speakers
                   image 1
                   image 2
           head units
                   image 1
                   image 2

etc

I'm getting an error...

Microsoft VBScript runtime  error '800a01a8'
Object required: ''
/mc-high-res/Default.asp, line 37

What object am I goofing on?
Thanks
<%
dim fso,fileName,folderName,myMail,mailBody,subFolderName,imagesFolder,carSubFolder
set fso=Server.CreateObject("Scripting.FileSystemObject")
 
 
	'GRAB FOLDER
   imagesFolder = "E:\mcintosh-high-res-images\"
   carAudioFolder = imagesFolder & "CarAudio\"
 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set allSubFolders = fso.GetFolder(imagesFolder) 	
	Set carSubFolders = fso.GetFolder(carAudioFolder)
	
	sub carAudiLoop
		for each subfolder in carSubFolders.subFolders
			carSubFolder = subfolder.Name
			Response.Write("<b>" & carSubFolder & "</b><ul>") 
			for each fileName in subfolder.files 
				response.write "<li>"& fileName.name & "</li>"
			next
			response.write "</ul>"
		next
	end sub
    
	
	
	
	for each subfolder in allSubFolders.subFolders 
	subFolderName = subfolder.Name
        Response.Write("<b>" & subfolderName & "</b><ul>") 
			
			if subFolderName = "CarAudio" then 			
				carAudiLoop
			end if
			
			for each fileName in subfolder.files 'LINE 37
				response.write "<li>"& fileName.name & "</li>"
			next
			response.write "</ul>"
    next 
    set fold = nothing 
    set fso = nothing 
 
%>

Open in new window

0
Comment
Question by:jweissdandm
  • 2
3 Comments
 
LVL 29

Accepted Solution

by:
Badotz earned 500 total points
ID: 21816328
Try this:
                        if subFolderName = "CarAudio" then                      
                                carAudiLoop
                        else
                        
                                for each fileName in subfolder.files 'LINE 37
                                        response.write "<li>"& fileName.name & "</li>"
                                next
                                response.write "</ul>"
                        end if

Open in new window

0
 
LVL 2

Author Closing Comment

by:jweissdandm
ID: 31656935
yup, that did it. Thanks
0
 
LVL 29

Expert Comment

by:Badotz
ID: 21816633
No worries - glad to help.
0

Featured Post

The new generation of project management tools

With monday.com’s project management tool, you can see what everyone on your team is working in a single glance. Its intuitive dashboards are customizable, so you can create systems that work for you.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I recently decide that I needed a way to make my pages scream on the net.   While searching around how I can accomplish this I stumbled across a great article that stated "minimize the server requests." I got to thinking, hey, I use more than one…
There is a wide range of advantages associated with the use of ASP.NET. This is why this programming framework is used to create excellent enterprise-class websites, technologies, and web applications.
How can you see what you are working on when you want to see it while you to save a copy? Add a "Save As" icon to the Quick Access Toolbar, or QAT. That way, when you save a copy of a query, form, report, or other object you are modifying, you…
Enter Foreign and Special Characters Enter characters you can't find on a keyboard using its ASCII code ... and learn how to make a handy reference for yourself using Excel ~ Use these codes in any Windows application! ... whether it is a Micr…
Suggested Courses

601 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question