VBScript

LEZIONI - L'OGGETTO FILE

Continuiamo la discesa discesa nel nostro computer e dopo l'oggetto drive e cartella ora tocca all'oggetto file. Utile per copiare, spostare e cancellare un file, ci permette anche di conoscere gli attributi di un file, la dimensione ed altre informazioni che andiamo subito a scoprire

L'oggetto file ha le seguenti Proprietà:

Attributes restituisce gli attributi di un file (normale, sola lettura, nascosto, di sistema, volume, archivio, compresso)
DateCreated restituisce la data e l'ora della creazione del file
DateLastAccessed restituisce la data e l'ora dell'ultimo accesso
DateLastModifed restituisce la data e l'ora dell'ultima modifica al file
Drive restituisce la lettera del drive per il file
Name imposta o restituisce il nome del file
ParentFolder restituisce un oggetto che punta alla cartella contenente il file.
Path restituisce il percorso del file
ShortName restituisce il nome Dos del file
ShortPath restituisce il nome Dos del percorso del file
Size restituisce la dimensione del file corrente
Type restituisce una descrizione del file corrente come stringa

I metodi dell'oggetto file sono simili a quelli dell'oggetto cartella.

Copy(destinazione,sovrascrittura)  Copia il file corrente nella posizione di destinazione, sovrascivendo un file esistente se la proprietà sovrascrittura è impostata a True
Delete(force) Cancella il file corrente. Il parametro force impostato a true elimina anche i file in sola lettura.
Move(destinazione) sposta il file corrente in una posizione specificata.
CreateTextFile(percorso,overwrite,unicode) crea un file di testo con il nome specificato nel parametro percorso, overwrite impostato a true cancella un file già esistente, mentre il parametro unicode impostato a true permette di creare un file nel formato Unicode.
OpenAsTextStream(percorso,overwrite,unicode) crea un file di testo con il nome specificato nel parametro percorso, overwrite impostato a true cancella un file già esistente, mentre il parametro unicode impostato a true permette di creare un file nel formato Unicode.

Vediamo qualche esempio dove sono applicati i concetti appena incontrati.

Questo esempio mostra le proprietà di un file.

<script language="vbscript" >
Dim FilePath,OggettoFile
FilePath="c:autoexec.bat"

Set fso = CreateObject("Scripting.FileSystemObject")
set OggettoFile = fso.GetFile (FilePath)

document.write "Nome File " & OggettoFile.Name & "<br/>"
document.write "Drive " & OggettoFile.Drive & "<br/>"
document.write "Attributi " & OggettoFile.Attributes & "<br/>"
document.write "Cartella " & OggettoFile.ParentFolder & "<br/>"
document.write "Data Creazione " & OggettoFile.DateCreated & "<br/>"
document.write "Data Ultimo Accesso " & OggettoFile.DateLastAccessed & "<br/>"
document.write "Data Ultima Modifica " & OggettoFile.DateLastModified & "<br/>"
document.write "Dimensione " & OggettoFile.Size & " bytes<br/>"
document.write "Tipo " & OggettoFile.Type & "<br/>"
document.write "Percorso " & OggettoFile.Path & "<br/>"
document.write "Nome Dos " & OggettoFile.ShortName & "<br/>"
document.write "Percorso Dos " & OggettoFile.ShortPath & "<br/>"
</script>

Lanciando questo script sul browser, dopo il messaggio di avvertimento, si avrà il seguente Output:

Nome File AUTOEXEC.BAT
Drive c:
Attributi 32
Cartella C:
Data Creazione 16/02/01 23.50.11
Data Ultimo Accesso 08/07/01
Data Ultima Modifica 28/04/01 22.51.06
Dimensione 202 bytes
Tipo File batch MS-DOS
Percorso C:AUTOEXEC.BAT
Nome Dos AUTOEXEC.BAT
Percorso Dos C:AUTOEXEC.BAT

Con il prossima esempio vediamo come copiare un file. Per poter eseguire lo script occorre prima creare una cartella chiamata prova in C:

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

Infine vediamo come cancellare il file appena creato:

<script language="vbscript" >
Dim OggFile, origine

origine="c:provaautoexec.bat"
Set fso = CreateObject("Scripting.FileSystemObject")
Set OggFile = fso.GetFile (origine)
OggFile.Delete

document.write "Il file " & origine & " è stato cancellato."
</script>