Hur gör man det? Även alla filer ska vara med, så det ser ut så här...
========
MAPP1
hej.txt
UNDERMAPP1
klkas.htm
UNDERMAPP2
kaksok
UNDER-UNDERMAPP
tets.gif
UNDER-UNDER-UNDERMAPP
UNDERMAPP3
========
OSV, hoppas ni fattar....

Alla mappar ska listas i en trädstuktur alltså, även alla filer i respektive mapp ska vara med o leka...

TACK så jätte mycket om ni kan lösa detta problem!

EDIT: efter som det är ca 160 mappar & ca 1500 filer, skadar det inte om koden e lite små optimerad oxå :)

/jonas

<hmm> Du vill altså lista det i en vanlig table eller???<br>
<br>
Jag har en kod för det som ser ut på följande vis:<br>

<code>
Set FileList = CreateObject("Scripting.Dictionary")
Set fso = CreateObject("Scripting.FileSystemObject")

Function CreateFileList(basefolder, showfolder, ignorefolder)
Set fileobj = fso.GetFolder(basefolder)
Set fc = fileobj.Files
For Each file in fc
'I only want the asp pages to be listened
If Right(file.name, 4) = ".asp" Then
'Add the file to the dictionary
FileList.Add (Replace(showfolder, "\", "/") & file.name), (Replace(showfolder, "\", "/") & file.name)
End If
Next

Set folderobj = fso.GetFolder(basefolder)
Set fc = folderobj.SubFolders
For Each folder in fc
'It ignores all folders that start with _ or is in the ignorefolder-list
'(the list is built like /folder/folder/ (has to start and stop with /.
'it compares the name inside, this is not a treestructure or something like that)
If Not mid(folder.name, 1, 1) = "_" And Not instr(1, "/" & folder.name & "/", ignorefolder) > 0 Then
CreateFileList (basefolder & folder.name & "\"), (showfolder & folder.name & "\"), ignorefolder
End if
Next
End Function
</code>

Så vitt jag vet så ska den vara snabb på att plocka in allt i Dictionaryn men sen är det ju upp till dig å se till så resten ska gå fort.. :)<br>
<br>
MVH<br>
//Jonas