subfolder och files

Antingen har jag hjärnsläpp eller så har jag missat nåt... ;)

Jag vill lista inte bara filer eller mappar i mitt dir med FSO, utan både och. Alltså både filer och mappar i samma collection.

Folder metoden har ju bara SubFoldes och Files som collections jue. Hur gör jag smidigast?

------------------
Jag är skum

Dim fso, folder, subFolder,f
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder("folderName")
    
    For Each subFolder in folder.subFolders
        response.write subFolder.name & "<br>"
    Next
    
    For Each f in folder.files
        response.write f.name
    Next

------------------
essentitia preter non sans multiplicandum

Ok, så det var så som jag hade tänkt mig då.. ;)

Tack!

------------------
Jag är skum