Hej igen någon!
En liten fråga angående FSO, jag använder mig av "FSO.GetFolder" för att leta igenom en specificerad katalog efter filer med ändelsen ".doc". Problemet är att den letar ju bara igenom just den katalogen alltså inga av dess underkataloger!

En rekursiv funktion löser nog problemet:

<%
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
ListFolders FSO.GetFolder("C:\Temp"), 0

Sub ListFolders(Folder, Level)
Dim File
Dim SubFolder
Dim Indent
Indent = Space(Level * 4)
Response.Write Indent + "<UL>"+ vbCrLf
Response.Write Indent + " <LI>" + Folder.Name + "</LI>" + vbCrLf
Response.Write Indent + "<UL>"+ vbCrLf
For Each File In Folder.Files
If Right(File.Name,4) = ".doc" Then
Response.Write Indent + " <LI>" + File.Name + "</LI>" + vbCrLf
End if
Next
Response.Write Indent + "</UL>"+ vbCrLf

For Each SubFolder In Folder.SubFolders
ListFolders SubFolder, Level + 1
Next
Response.Write Indent + "</UL>"+ vbCrLf

End Sub
%>