Script per cancellare un file o un'intera cartella verificandone prima l'esistenza.

Un file o una cartella si possono cancellare in due modi diversi, utilizzando direttamente il metodo DeleteFile dell'oggetto FileSystemObject oppure accedendo al file, e quindi utilizzando il metodo Delete. Ovviamente prima di cancellare un file o una cartella dobbiamo vedere se esiste altrimenti darebbe errore nel cancellare un file o una cartella non esistente. Ecco un esempio:

<% 
Dim Fso 
Set Fso=Server.CreateObject("Scripting.FileSystemObject") 

'------- Cancellare un file

'Primo metodo: con DeleteFile 
if Fso.fileexists("c:\prova.txt") then
   Fso.DeleteFile("c:\prova.txt") 
end if

'Secondo metodo: accesso al file 
if Fso.fileexists("c:\prova1.txt") then
   Set File = Fso.GetFile("c:\prova1.txt") 
   File.Delete
end if 



'------- Cancellare una cartella

'Primo metodo: con DeleteFolder 
if Fso.folderexists("c:\prova") then
   Fso.DeleteFolder("c:\prova") 
end if

'Secondo metodo: accesso alla directory 
if Fso.folderexists("c:\prova1") then
   Set Cartella = Fso.GetFolder("c:\prova1") 
   Cartella.Delete 
end if

Set Fso=Nothing 
%>

automobili, scarica, scripts, animali, radio, natura, script, del piero, sport, filmato, maradona, cap, auto, freeware, incidenti, javascript, sorpassi, ferrari, programmazione, asp