[Robert]

Hmmm, om du får permission denied så kanske du ska kolla om IIS usern har rättigheter att rota i den katalog du försöker komma åt?

Annars så har jag ett litet exempel från en egen site för att lista filer i alla foldrar i en speciel folder. Kanske något som går att förstå... =)

<%
	Dim ObjFileobject, rootpath, Folder, Files, File, SubFolders, SubFolder

	rootpath = Request.ServerVariables("APPL_PHYSICAL_PATH") & "/download/"

	Set ObjFileobject = CreateObject("Scripting.FileSystemObject")

	Set Folder = ObjFileobject.GetFolder(rootpath)
	set Files = folder.files
	Set SubFolders = Folder.SubFolders
%>
<%If SubFolders.Count <> 0 Then
	For Each SubFolder In SubFolders%>
  	
	<%'fetch files in subfolder
	Set Folder = ObjFileobject.GetFolder(rootpath & SubFolder.name & "/")
	set Files = folder.files
	%>
	<table width="100%" border="0" cellPadding="0" cellSpacing="0">
	<tr>
 <td align="left" valign="top"><b><%=SubFolder.name%></b> (<%=Files.count%> files)</td>
 <td align="right" class="boxtext" valign="top">Size</td>
 <td align="right" class="boxtext" valign="top">Last modified</td>
 <td align="right" class="boxtext"></td>
	</tr>
	<%If Files.Count <> 0 Then
 For Each File In Files%>
 	<tr>
  <td align="left" valign="middle" width="350">
  	<a href="../download/<%=SubFolder.name%>/<%=file.name%>" class="boxlinkbig" target="_apa" title="Click here to launch this file"><%=file.name%></a>
  </td>
  <td align="right" valign="middle" width="87">
  	<%=replace(FormatNumber(file.size,0), ",", ".")%>
  </td>
  <td align="right" valign="middle" width="150">
  	<%="[" & year(file.DateLastModified) & "-" & right("0" & month(file.DateLastModified),2) & "-" & right("0" & day(file.DateLastModified),2) & "] " & right("0" & hour(file.DateLastModified),2) & ":" & right("0" & minute(file.DateLastModified),2)%>
  </td>
  <td align="right" width="13"></td>
 	</tr>
 <%Next
	End If%> 	
	</table><br>
	<%Next
End If%>