Solved

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

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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

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

I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:  The Exchange of information …
I would like to start this tip/trick by saying Thank You, to all who said that this could not be done, as it forced me to make sure that it could be accomplished. :) To start, I want to make sure everyone understands the importance of utilizing p…
This is used to tweak the memory usage for your computer, it is used for servers more so than workstations but just be careful editing registry settings as it may cause irreversible results. I hold no responsibility for anything you do to the regist…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…

910 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now