Hej,
Någon som har ett script som listar alla filer som ligger från en viss folder och neråt?

Alltså listar alla subfoldrar med dess filer hela vägen tills inga fler foldrar finns.

Skall egentligen bara ta ut en lista på alla filer som finns och importera dom till Excel, så för att slippa kopiera och klistra tänkte jag göra ett snabbt och enkelt(?) hack. Det är nämligen ett par tusen filer..

/Jocke

En rekursiv funktion skulle kanske passa:
<code>
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder("c:/wwwroot")

Response.Write "<UL>" & GetSubFolders(folder) & "</UL>"

function GetSubFolders(pfolder)
Dim sFolders, fldr, fil

If pfolder.SubFolders.Count > 0 Or pfolder.Files.Count > 0 Then
sFolders = "<LI>" & pfolder.Name
sFolders = sFolders & "<UL>"
else
sFolders = "<LI>" & pfolder.Name
end if

For Each fldr In pfolder.SubFolders
sFolders = sFolders & GetSubFolders(fldr)
Next

For Each fil In pfolder.Files
sFolders = sFolders & "<LI> Namn: "& fil.Name &" Typ: "& fil.type &" Storlek: "& fil.size &" Bytes </LI>"
Next

If pfolder.SubFolders.Count > 0 Or pfolder.Files.Count > 0 Then _
sFolders = sFolders & "</UL>"
sFolders = sFolders & "</LI>"

Set fil = Nothing : Set fldr = Nothing

GetSubFolders = sFolders
End function
</code>

Ah, det fungerade lysande!

Tack för hjälpen!!

/Jocke

Eller förresten, det funkade inte riktigt.
Kan denna kod skilja sig mellan olika versioner av IIS?
När jag kör lokalt på IIS6, listas alla foldrar och alla filer.
När jag sen flyttar över till den "riktiga" webservern som är IIS5, så listas bara foldrarna. Inga filer visas.

Borde inte koden"smällt" om det är felkodat? Jag får inget felmeddelande.

Hur kan jag få denna att funka på IIS 5?

/Jocke