delete file script fso - ændre mappe ?
Hej jeg har et slideshow som brugerne selv skal kunne lægge nye billeder til - Og nu vil jeg også blive glad hvis de kunne slette evt. fejlanbragte ditto - Jeg har planket dette script der sletter med file system object i asp -og er desværre nødt til at ændre den folder som filerne slettes fra da asp - siden ellers bliver vist som et "brudt ikon" i slideshowet - Jeg har prøvet diverse men uden held - fra aspsiden skal scriptet gå ind i mappen "images" -Her er det :
<%
strdelete = request.querystring("delete")
strFN = request.querystring("FN")
if strdelete = "Yes" Then
call functionDF()
End if
Sub functionDF()
Dim fso, f1
Set fso = CreateObject("Scripting.FileSystemObject")
Response.Write "Deleting file <B>" & strFN & "</B><BR>"
Set f1 = fso.GetFile(Server.MapPath(strFN))
f1.Delete
Response.Write "All done!<BR>"
End Sub
' the dot . below represents the current
' directory that this file is in.
' this file will only delete in its curr
' ent directory. to delete in
' directories, you would have to add tha
' t to the tobdel portion which is the FN
' that is being passed.
dirtowalk = "."
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(dirtowalk))
Set fc = f.Files
For Each tobdel In fc
response.write "<A href='delimg.asp?delete=Yes&FN=" & tobdel.name & "'>"
response.write tobdel.name & "</A></BR>"
Next
%>
Ja, men hvor er tobdel directory defineret ?
MVH Kalahari Kid
