| Dosya Adı |
Bulunduğu Klasör |
Sil / Göster |
<%
Set Fso = Server.CreateObject("Scripting.Filesystemobject")
Set Klasor = FSO.GetFolder(Server.MapPath("../animoticons"))
For Each Muharrem In Klasor.Files
%>
<%=Muharrem.Name%> |
animoticons/ |
 |
<% next %>
<%
Set Fso = NoThing
Set Klasor = NoThing
If Request.QueryString("muharrem") = "sil" Then
dosyaadi=request.querystring("dosyaadi")
Set Fso = Server.CreateObject("Scripting.Filesystemobject")
Fso.DeleteFile Server.MapPath("..\animoticons\" & dosyaadi)
Response.Redirect Request.ServerVariables ("HTTP_REFERER")
End If
%>