Här är koden...kanske någon vet hur man ska lösa det med mellanslag i filnamnet
<%
If Request.QueryString("path") = "" Then
StartMapp = "D:\Inetpub\wwwroot\code\Download\Components\ASP Components\"
StartMappUrl = "http://localhost/code/Download/Components/ASP Components"
Else
StartMapp = Request.QueryString("path")
StartMappUrl = Request.QueryString("url")
End If
Set filsystemobjekt = CreateObject("Scripting.FileSystemObject")
Set folder = filsystemobjekt.GetFolder(StartMapp)
Set filer = folder.Files
Set underkataloger = folder.SubFolders
%>
<html>
<head>
<title></title>
<!--<link rel="stylesheet" type="text/css" href="styles/shop.css">-->
</head>
<body bgcolor="#FFFFFF" text="#000000" vlink="#0000FF">
<table align="center" cellpadding="0" cellapcing="0" border="0" width="800">
<tr>
<td width="29%" bgcolor="#FFFFDF"><font face="Verdana"><strong><small>Filnamn</small></strong></font></td>
<td width="37%" bgcolor="#FFFFDF"><font face="Verdana"><strong><small>Filtyp</small></strong></font></td>
<td width="17%" bgcolor="#FFFFDF"><font face="Verdana"><strong><small>Datum</small></strong></font></td>
<td width="17%" bgcolor="#FFFFDF"><font face="Verdana"><strong><small>Storlek</small></strong></font></td>
</tr>
<tr>
<%
For Each folder in underkataloger
' Nedan kontrollerar vi så att det inte visas några mappar med konstiga attribut
If folder.Attributes < 50 then
%>
<td width="29%"><strong><small><small><font face="Verdana"><img src="images/folder.gif" align="absmiddle" WIDTH="15" HEIGHT="13"> <% Response.Write "<a href=index.asp?url=" & StartMappUrl & "/" & folder.name & "&path=" & StartMapp & "\" & folder.name & ">" & folder.name & "</a> <br>" %> </font></small></small></strong></td>
<td width="37%"><small><small><font face="Verdana">mapp</font></small></small></td>
<td width="17%"><small><small><font face="Verdana"><%= FormatDateTime(folder.DateCreated, 2) %> </font></small></small></td>
<td width="17%"><small><small><font face="Verdana"><%= folder.Size %> </font></small></small></td>
</tr>
<%
end if
Next
%>
<%
For Each folder in filer
' Nedan kontrollerar vi så att det inte visas några filer med konstiga attribut
If folder.Attributes < 50 then
%>
<tr>
<td width="29%"><img src="images/dokument.gif" align="absmiddle" WIDTH="13" HEIGHT="16"><small><small><font face="Verdana"> <% Response.Write "<a href=" & StartMappUrl & "/" & folder.name & ">" & folder.name & "</a> <br>" %> </font></small></small></td>
<td width="37%"><small><small><font face="Verdana"><%= folder.Type %> </font></small></small></td>
<td width="17%"><small><small><font face="Verdana"><%= FormatDateTime(folder.DateCreated, 2) %> </font></small></small></td>
<td width="17%"><small><small><font face="Verdana"><%= folder.Size %> </font></small></small></td>
</tr>
<%
end if
Next
%>
</table>
</tr>
</table>
</body>
</html>
<%
Set filsystemobjekt = Nothing
Set folder = Nothing
Set filer = Nothing
Set underkataloger = Nothing
%>
[Redigerat av ironhead den 15 nov 2001]
