Slet fil fra folder funktion
Hej Eksperter.Kan I hjælpe mig med at bygge videre på nedenstående funktion, sådan at jeg kan slette filerne i den mappe som scriptet udlister.
Jeg forestiller mig en 4. tabelcelle med et tekstlink som hedder "Slet" som ved klik så sletter den respektive fil.
(Scriptet udlister alle filer i en mappe)
<%
vPath = "admin/filer"
pPath = Server.MapPath( vPath )
Set fs = Server.CreateObject( "Scripting.FileSystemObject" )
Set myFolder = fs.GetFolder( pPath )
%>
<TABLE WIDTH="100%" BORDER="0">
<tr>
<td WIDTH="30%"><b>Fil Navn:</b></td>
<td WIDTH="30%"><b>Type:</b></td>
<td WIDTH="30%"><b>Størrelse:</b></td>
</tr>
<% For Each thing in myFolder.Files %>
<tr>
<td WIDTH="30%"> <a href="admin/filer/<%=thing.Name%>" target="_blank"><%=thing.Name%></a></td>
<td WIDTH="30%"> <%=thing.Type %></td>
<td WIDTH="30%"> <%=thing.Size %> bytes</td>
</tr>
<% Next %>
</table>
<BR>
<%
Dim strPath
Dim objFSO
Dim objFolder
Dim objItem
strPath = "admin/filer"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
%>
