Jeg giver 100 point til den der så får det til at virke
Ja den skriver det godt nok ud, men den giver fejl når jeg klikker på linket. Jeg har kaldt filen for: fil.aspOg jeg har ændret stien i linie 16 til mappen hvor jeg har skriverettighed til
<HTML>
<HEAD>
<%
Set fs = CreateObject("Scripting.FileSystemObject")
if Request.QueryString.Count() THEN
Set sletfil = Request.QueryString("fil")
Set f1 = fs.GetFile(replace(Server.MapPath(sletfil), "%20", " "))
f1.Delete
Response.Write "Filen blev slettet"
END IF
%>
<TITLE>Fil system.</TITLE>
</HEAD>
<BODY>
<%
pPath = Server.MapPath("/")
Set myFolder = fs.GetFolder( pPath )
%>
<TABLE BORDER="1" BGCOLOR="#FFFFFF" BORDERCOLOR="#000000">
<tr>
<td><b>Fil Navn:</b></td>
<td><b>File Type:</b></td>
<td><b>File Størrelse:</b></td>
<td><b>Slet</slet></td>
</tr>
<% For Each fil in myFolder.Files %>
<tr>
<td><%=fil.Name%></td>
<td><%=fil.Type %></td>
<td><%=fil.Size %> bytes</td>
<td><a href="fil.asp?fil=<%=fil.Name%>"><%=fil.Name%></a></td>
</tr>
<% Next %>
</table>
</BODY>
</HTML>
