VBScript
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.
|