Gestione dei File

Per poter operare con questi esempi si dovrà creare una cartella prova nel drive C:

Iniziamo con il copiare il file autoexec.bat da C: a C:prova

Per farlo occorre il semplice script:

<SCRIPT LANGUAGE=vbscript>
<!–
Dim Drive, OggFile, origine, destinazione
origine=”c:autoexec.bat”
destinazione=”c:prova”
Set fso = CreateObject(“Scripting.FileSystemObject”)
set OggFile = fso.GetFile (origine)
OggFile.Copy destinazione,true
document.write “Il file ” & origine & ” è stato
copiato in ” & destinazione & “.”
//–>
</SCRIPT>

Associamo questo script ad una funzione richiamata dal click di un pulsante:

<HTML>
<HEAD>
<TITLE>Esercizio</TITLE>
</HEAD>
<BODY>

<SCRIPT LANGUAGE=vbscript>
<!–
function copia()
Dim Drive, OggFile, origine, destinazione
origine=”c:autoexec.bat”
destinazione=”c:prova”
Set fso = CreateObject(“Scripting.FileSystemObject”)
set OggFile = fso.GetFile (origine)
OggFile.Copy destinazione,true
msgbox “Il file ” & origine & ” è stato copiato in ” & destinazione & “.”
end function
//–>
</SCRIPT>
<input type=button value=Copia >
</BODY>
</HTML>

Se premiamo più volte il pulsante copia, ogni volta sovrascriviamo il file nella cartella prova.
Il nostro obbiettivo sarà ora quello di verificare se il file esiste già: solo nel caso questo manchi, verrà copiato nella cartella prova. Per fare ciò, si usa il metodo FileExists. Questo metodo restituisce true se il file esiste, false se non esiste.

<HTML>
<HEAD>
<TITLE>Esercizio</TITLE>
</HEAD>
<BODY>

<SCRIPT LANGUAGE=vbscript>
<!–
function copia()
Dim Drive, OggFile, origine, destinazione
origine=”c:autoexec.bat”
destinazione=”c:prova”
Set fso = CreateObject(“Scripting.FileSystemObject”)
set OggFile = fso.GetFile (origine)
if fso.FileExists (destinazione & “autoexec.bat”) then
MsgBox “Esiste già un file autioexec.bat nella cartella prova.”
else
OggFile.Copy destinazione,true
MsgBox “Il file ” & origine & ” è stato copiato in ” & destinazione &
“.” end if
end function
//–>
</SCRIPT>
<input type=button value=Copia >
</BODY>
</HTML>

Completiamo l’opera con una funzione per cancellare il file dalla cartella prova:

function cancella()
Dim OggFile, origine
origine=”c:provaautoexec.bat”
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set OggFile = fso.GetFile (origine)
OggFile.Delete
MsgBox “Il file ” & origine & ” è stato cancellato.”
end function

Anche a questa funzione associamo un pulsante. Qui di seguito è indicato il codice completo dell’applicazione:

<HTML>
<HEAD>
<TITLE>Esercizio</TITLE>
</HEAD>
<BODY>

<SCRIPT LANGUAGE=vbscript>
<!–
function copia()
Dim Drive, OggFile, origine, destinazione
origine=”c:autoexec.bat”
destinazione=”c:prova”
Set fso = CreateObject(“Scripting.FileSystemObject”)
set OggFile = fso.GetFile (origine)
if fso.FileExists (destinazione & “autoexec.bat”) then
MsgBox “Esiste già un file autioexec.bat nella cartella prova.”
else
OggFile.Copy destinazione,true
MsgBox “Il file ” & origine & ” è stato copiato in ” & destinazione &
“.” end if
end function

function cancella()
Dim OggFile, origine
origine=”c:provaautoexec.bat”
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set OggFile = fso.GetFile (origine)
OggFile.Delete
MsgBox “Il file ” & origine & ” è stato cancellato.”
end function
//–>
</SCRIPT>
<input type=button value=Copia >
<input type=button value=Cancella >
</BODY>
</HTML>

Le operazioni più frequenti che si operano sui file sono quelle appena viste: esistenza, copia, cancellazione e spostamento. Lo spostamento di un file non è stato menzionato tra gli esempi, ma è uguale alla copia : solo che al posto del metodo Copy si usa il metodo Move.

Both comments and pings are currently closed.

Comments are closed.