22. april 2002 - 12:59Der er
15 kommentarer og 1 løsning
Delete
Jeg er ved at lave et script, der kan slette én fil af gangen i én bestemt mappe... Jeg er gået lidt i stå, håber en eller anden kan hjælpe mig videre..!
her er koden: <% If Request.Querystring <> "" then Dim arrFile arrFile = Split(Request.querystring,",") mappe = arrFile(0) fil = arrFile(1) start = mappe Select Case start Case "id=billeder" session("location") = "../billeder/" Case "id=banner" session("location") = "../billeder/banner/" Case "id=dokumenter" session("location") = "../dokumenter/" end select Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(session("location"))) Set objFiler = objFolder.Files For Each fil In objFiler fil.Delete Next
Brug af AI afslører de svagheder, virksomheder allerede har opbygget gennem års cloud-transformation, nye SaaS-løsninger og fragmenterede sikkerhedssystemer.
Her er et eksempel på hvordan du sletter en fil - er det sådan noget du skal bruge???
<% dim filesys Set filesys = CreateObject("Scripting.FileSystemObject") filesys.CreateTextFile "c:\somefile.txt", True If filesys.FileExists("c:\somefile.txt") Then filesys.DeleteFile "c:\somefile.txt" Response.Write("File deleted") End If %>
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(session("location"))) del = session("location")&fil objFSO.DeleteFile "c:\inetpub\wwwroot\nesdam\billeder\ariel.gif"
Det her gør ikke - del indeholder fx../billeder/ariel.gif Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(session("location"))) del = session("location")&fil objFSO.DeleteFile del
If Request.Querystring("id") <> "" then Dim arrFile arrFile = Split(Request.querystring("id"),",") mappe = arrFile(0) fil = arrFile(1) Select Case Lower(mappe) Case "billeder" session("location") = "../billeder/" Case "banner" session("location") = "../billeder/banner/" Case "dokumenter" session("location") = "../dokumenter/" end select Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Server.MapPath(session("location"))) Set objFiler = objFolder.Files For Each fil In objFiler fil.Delete Next
eagleeye--> tja - det virker, men meningen er jo at den kun skal slette den ene fil der ligger i arrFile(1) eller variablen Fil. Koden til at slette én fil kan jeg ikke finde nogen steder, men koder til at slette alle filer i en mappe, kan jeg ikke finde...
Jeg har brugt den slette del af koden som du også har i dit spm.... Hvis du bare skal slette en filen så prøv dette:
If Request.Querystring("id") <> "" then Dim arrFile arrFile = Split(Request.querystring("id"),",") mappe = arrFile(0) fil = arrFile(1) Select Case Lower(mappe) Case "billeder" session("location") = "../billeder/" Case "banner" session("location") = "../billeder/banner/" Case "dokumenter" session("location") = "../dokumenter/" end select Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(session("location") & fil) Then objFSO.DeleteFile session("location") & fil End If
ja - det skulle der takker 100 gange, det virker upåklageligt, points til dig... Takker også for de øvrige indlæg.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
