25. september 2004 - 01:10
Der er
2 kommentarer og 1 løsning
Slet filer
Hejsa... Jeg har brug for et script der sletter alle filerne i en mappe, som ender på fx 1.jpg fx har jeg en fil der kan hedde: 23_sejbil_1.jpg Så skal jeg slette ALLE filerne i mappen der ender på 1.jpg Hvordan kan det nemmest gøres? :/ /Bio
Annonceindlæg fra Barco
Er jeres mødelokaler sikre nok?
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
25. september 2004 - 12:42
#1
Måske det her kan bruges: Sti= "../../../pix/event/" Set FSO = CreateObject("Scripting.FileSystemObject") Set Folder = FSO.GetFolder(Server.MapPath(sti)) Set FolderFiles = Folder.Files For Each File In FolderFiles If Right(File.Name,5) = "1.jpg" Then If FSO.FileExists(Server.Mappath(Sti & fil)) Then FSO.DeleteFile Server.Mappath(Sti & fil) End If End If Next
25. september 2004 - 13:20
#2
Så nu virket det. Filen ligges uden for mappen og tilretter stien <html> <head> <title>Untitled Document</title> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> </head> <body> <% Sti= "../personale/" Set FSO = CreateObject("Scripting.FileSystemObject") Set Folder = FSO.GetFolder(Server.MapPath(sti)) Set FolderFiles = Folder.Files For Each File In FolderFiles If Right(File.Name,5) = "1.jpg" Then fil = File.Name If FSO.FileExists(Server.Mappath(Sti & fil)) Then FSO.DeleteFile Server.Mappath(Sti & fil) End If End If Next %> </body> </html>