Ta bort .jpg, .gif, .bmp?

4 svar · 432 visningar · startad av Bosse168 21 feb. 2005

Bosse168Medlem sedan nov. 20031 018 inlägg

Frågan21 feb. 2005 16:50#1

Finns det något smidigare sätt att kolla och ta bort 3 filer?

Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(Server.MapPath("\slaf_pics\temp\"& vem &".jpg")) then
fso.DeleteFile(Server.MapPath("\slaf_pics\temp\"& vem &".jpg"))
end if 
set fso = nothing

if fso.FileExists(Server.MapPath("\slaf_pics\temp\"& vem &".gif")) then
fso.DeleteFile(Server.MapPath("\slaf_pics\temp\"& vem &".gif"))
end if 
set fso = nothing

if fso.FileExists(Server.MapPath("\slaf_pics\temp\"& vem &".bmp")) then
fso.DeleteFile(Server.MapPath("\slaf_pics\temp\"& vem &".bmp"))
end if 
set fso = nothing

@ndersMedlem sedan juni 200032 967 inlägg

21 feb. 2005 16:54#2

Det där borde ju inte fungera alls, eftersom du sätter fso till nothing när du inte är klar med objektet.

Det går ju att göra med färre kodrader iaf, om det nu är det man strävar efter:

Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(Server.MapPath("\slaf_pics\temp\"& vem &".jpg")) then fso.DeleteFile(Server.MapPath("\slaf_pics\temp\"& vem &".jpg"))
if fso.FileExists(Server.MapPath("\slaf_pics\temp\"& vem &".gif")) then fso.DeleteFile(Server.MapPath("\slaf_pics\temp\"& vem &".gif"))
if fso.FileExists(Server.MapPath("\slaf_pics\temp\"& vem &".bmp")) then fso.DeleteFile(Server.MapPath("\slaf_pics\temp\"& vem &".bmp"))
set fso = nothing

Bosse168Medlem sedan nov. 20031 018 inlägg

21 feb. 2005 16:55#3

Ska det inte vara med en End If på slutet?

Set fso = CreateObject("Scripting.FileSystemObject")
if fso.FileExists(Server.MapPath("\slaf_pics\temp\"& vem &".jpg")) then fso.DeleteFile(Server.MapPath("\slaf_pics\temp\"& vem &".jpg")) End If
if fso.FileExists(Server.MapPath("\slaf_pics\temp\"& vem &".gif")) then fso.DeleteFile(Server.MapPath("\slaf_pics\temp\"& vem &".gif")) End If
if fso.FileExists(Server.MapPath("\slaf_pics\temp\"& vem &".bmp")) then fso.DeleteFile(Server.MapPath("\slaf_pics\temp\"& vem &".bmp")) End If
set fso = nothing

@ndersMedlem sedan juni 200032 967 inlägg

21 feb. 2005 17:04#4

Nej, inte när man har if-satsen på samma rad som det som skall utföras.

HolmstroemMedlem sedan feb. 200532 inlägg

21 feb. 2005 19:30#5

@nders skrev:

Nej, inte när man har if-satsen på samma rad som det som skall utföras.

Det visste inte jag , tack :P