Nessun risultato. Prova con un altro termine.
Guide
Notizie
Software
Tutorial

Gestione dei file

Lavorando con i file, spesso capita di doverli spostare, copiare, cancellare
Lavorando con i file, spesso capita di doverli spostare, copiare, cancellare
Link copiato negli appunti

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.


Ti consigliamo anche