filesystemobject - subfolders

[gooseriver]

Using FileSystemObject how can I display the names of the files in the subfolders within that folder and include the subfolder in which the file is located. IE:


Folder structure:

Parent Folder("c:\temp")
Subfolder1 Subfolder2
test.doc code.doc
test1.doc code1.doc
test2.doc code2.doc

output:
subfolder1\test.doc
subfolder1\test1.doc
subfolder1\test2.doc

subfolder2\code.doc
subfolder2\code2.doc
subfolder2\code3.doc


-

 

[ChrisHirst]

Iterate through the Folders Collection and output the items from the Files Collection for each folder




Chris.

Indifference will be the downfall of mankind, but who cares?
Woo Hoo! the cobblers kids get new shoes.
People Counting Systems

So long, and thanks for all the fish.

 

[gooseriver]

How?

 

[Sheco]

Make a loop with the For Each / Next syntax.

 

[onpnt]

or do little while ;-)

I've just always wanted to say that. I know, I'm dumb

[sub]____________ signature below ______________
You are a amateur developer until you realize all your code sucks.
Jeff Atwood[/sub]

 

[gooseriver]

Do you have any sample code... I am able to list al the files in a parent folder but not the content in the subfolders within that folder...

 

[onpnt]

You have to write a recursive function for that.

More or less while running through your function call the same function when you hit a subfolder etc..

google recursive function FSO

This is probably as common as "How do I connect to a database?" as far as a google search

[sub]____________ signature below ______________
You are a amateur developer until you realize all your code sucks.
Jeff Atwood[/sub]

 

[gooseriver]

I am only 15 years old. How can I do this?

 

[Sheco]

Have you considered simply enabling "directory browsing" on the web server?

 

[ChrisHirst]

http://aspalliance.com/179_Creating_a_File_Explorer

Chris.

Indifference will be the downfall of mankind, but who cares?
Woo Hoo! the cobblers kids get new shoes.
People Counting Systems

So long, and thanks for all the fish.

 

[gooseriver]

Hi Chris,

This only shows the files in the parent folder not the subfolders includ4ed..

 

[Sheco]

Yeah but read through the code...

At the bottom of the first grey code box you can set it gets a subfolders collection object into a variable and then in the second grey code box it has a loop where it flips through the collection with a For Each loop... now in this particular example it just does a Response.Write of a fixed string "Edited listing" but there is no reason why you couldn't modify the code to print the folder name instead.

 

[gooseriver]

In my lopp I have For Each cntFile in testFolder1.fiesl.. Can I add testFolder2.files to this loop, if yes how?

Set filesys = Server.CreateObject("Scripting.filesystemObject")
Set testFolder1 = filesys.Getfolder(Folder1)
Set testFolder2 = filesys.Getfolder(Folder2)

'Loop through the files collection
Dim cntFile, filecount
filecount = 0
For Each cntFile in testFolder1.files
if lcase(right(cntFile.Name, 4)) = ".xls" then
filecount = filecount + 1
fileName = fileName & cntFile.name
fileName = fileName & ";"
end if
Next


Set testFolder1 = Nothing
Set cntFile = Nothing
Set filesys = Nothing