18. august 2003 - 13:05
Der er
6 kommentarer og 1 løsning
sletning af filer
Hejsa Er der nogen der ved om/hvordan man kan laver en asp side som kan slette filer på en server. I mit eksempel skal jeg bruge det til at slette billeder navnet på filerne ligger i en database
Annonceindlæg fra Conscia
18. august 2003 - 13:12
#3
Jeg bruger selv denne: Side 1: <table> <tr> <td>Billede:</td> <td>Navn:</td> <td>Slet:</td> </tr> <% Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set MyFolder=MyFileObject.GetFolder(Server.MapPath("../../billeder")) FOR EACH thing in MyFolder.Files Hep = thing.Name %> <tr> <td><% response.write "<img border=""1"" src=""../../billeder/" & hep & """ width=""75"" height=""75"">" %></td> <td><A HREF="../../billeder/<%=thing.Name%>"><%=thing.Name%></A></td> <td><A HREF="sletimg.asp?fil=?../../billeder/<%=thing.Name%>">Slet</a></td> </tr> <% NEXT %> </table Side 2: <% Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") filSti = Server.MapPath(Request.QueryString("fil")) objFSO.DeleteFile filSti Set objFSO = Nothing Response.redirect "slet.asp" %> Måske du kan bruge det til noget.
18. august 2003 - 13:13
#4
set fil = Server.CreateObject("Scripting.FileSystemObject") picture_file = Server.MapPath("graphics/"&rs.Fields("filonavn")) if fil.FileExists(picture_file) then fil.DeleteFile(picture_file,true) end if set fil = nothing
18. august 2003 - 13:16
#6
måske uden () hvis det er VB her i java script: fil = Server.CreateObject("Scripting.FileSystemObject"); picture_file = Server.MapPath("graphics/"+rs.Fields("filonavn")); if(fil.FileExists(picture_file)){ fil.DeleteFile(picture_file,true); } fil = null;