Solved

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

Posted on 2008-06-18
3
1,177 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 125 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

Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

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

Suggested Solutions

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…
Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
Two types of users will appreciate AOMEI Backupper Pro: 1 - Those with PCIe drives (and haven't found cloning software that works on them). 2 - Those who want a fast clone of their boot drive (no re-boots needed) and it can clone your drive wh…
Nobody understands Phishing better than an anti-spam company. That’s why we are providing Phishing Awareness Training to our customers. According to a report by Verizon, only 3% of targeted users report malicious emails to management. With compan…

856 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