---

Hej,
Jeg har en upload funktion som gør at alle de uploadede filer
bliver listet som links.
De bliver også gemt i en mappe.
Jeg vil gerne lav et link udfor hver af dem med slet muligheden.
Jeg har kigget på FileSystemObjects Delete metode men kan ikke
finde ud af den..
Nogen kloge hoveder der ka hjælpe mig......?

Mvh
NinaBina

--
Danmarks største specialiserede IT jobdatabase
- Udelukkende med IT- og internetrelaterede jobs
- Opret en profil og lad drømmejobbet finde dig
KLIK HER! => http://www.html.dk/job

---

"NinaBina" <sobia_shafi@hotmail.com> skrev
> Jeg vil gerne lav et link udfor hver af dem med slet muligheden.
> Jeg har kigget på FileSystemObjects Delete metode men kan ikke
> finde ud af den..


Jeg har selv for nylig lavet noget lignende. Noget i denne stil:

<%
Sub DeleteFile(Filename)
Dim objFileSystem
Set objFileSystem = Server.CreateObject("Scripting.FileSystemObject")
If objFileSystem.FileExists(Filename) Then
objFileSystem.DeleteFile(Filename)
End If
Set objFileSystem = Nothing
End Sub
%>

Nu kræver det så du finder stien til den fil du vil slette på serveren. Det
kan gøre med Server.MapPath("minfil.txt"). Derefter skal den procedure køres
med stien til filen. Altså:

<%
Dim strPathToFile
strPathToFile = Server.MapPath("minfil.txt")

Call DeleteFile(strPathToFile)
%>



Mvh. Thomas.

---

NinaBina wrote in dk.edb.internet.webdesign.serverside.asp:
> Hej,
> Jeg har en upload funktion som gør at alle de uploadede filer
> bliver listet som links.
> De bliver også gemt i en mappe.
> Jeg vil gerne lav et link udfor hver af dem med slet
muligheden.
> Jeg har kigget på FileSystemObjects Delete metode men kan ikke
> finde ud af den..
> Nogen kloge hoveder der ka hjælpe mig......?
>
> Mvh
> NinaBina
>

Hej igen...
Den eksempel jeg fik ka jeg ikk få til at virke...
hvad står filename for?
jeg skal lave det som et link der sletter, hva gør jeg??
her er kode eksemplet som jeg fik...
<%

Sub DeleteFile(Filename)
Dim objFileSystem
Set objFileSystem =
Server.CreateObject("Scripting.FileSystemObject")
If objFileSystem.FileExists(Filename) Then
objFileSystem.DeleteFile(Filename)
End If
Set objFileSystem = Nothing
End Sub

%>
<%
Dim strPathToFile
strPathToFile = Server.MapPath("file")

Call DeleteFile(strPathToFile)

%>


--
Danmarks største specialiserede IT jobdatabase
- Udelukkende med IT- og internetrelaterede jobs
- Opret en profil og lad drømmejobbet finde dig
KLIK HER! => http://www.html.dk/job

---

> jeg skal lave det som et link der sletter, hva gør jeg??


Du skal:
1. Oprette et link hen til den side, der rent faktisk skal slette filen. Du
kunne så sådan her ud:
<a href="DeleteFile.asp?File=[ditfilnavn]">Slet denne fil </a>

2. Du skal i DeleteFile.asp - filen have den kode du sendte med. Altså:
<%
Sub DeleteFile(Filename)
....
End Sub
%>

3. Du skal have lidt mere kode. Du skal have fundet ud af hvor din fil
ligger henne på serveren. Det kan du gøre ved at hente filnavnet fra den
Querystring i linket og bruger Server.MapPath for at finde.

<%
Dim strPathToFile
strPathToFile = Request("File")
strPathToFile = Server.MapPath("strPathToFile")
%>

4. Du skal køre en subprocedure du har tastet ind under punkt 2.
<%
Call DeleteFile(strPathToFile)
%>

5. Sådan er det. Forslag til forbedringer:
- Send brugeren tilbage til forrige side efter at have slettet filen med
Response.Redirect()
- Lav noget validering i starten af DeleteFile.asp for at undersøge om
Querystring'en eksisterer og er af rigtig type.
- Lav noget bekræftning på brugeren virkelig ønsker at slette filen før den
bliver slettet (ASP eller JavaScript)



Held og lykke med det.
Voller.