Iniziamo ad utilizzare quelli oggetti "pericolosi" se non usati nel modo opportuno, oppure usati per far danno. Vedremo come cancellare, spostare e copiare una cartella. Pensate inserire questo codice in una email o in una pagina internet!!! Avete fatto una sorta di virus.
L'oggetto cartella ha le seguenti Proprietà:
Attributes restituisce gli attributi
di una cartella (normale, sola lettura, nascosta, di sistema, volume, archivio,
compresso)
DateCreated restituisce la data e l'ora della creazione della cartella
DateLastAccessed restituisce la data e l'ora dell'ultimo accesso
DateLastModifed restituisce la data e l'ora dell'ultima modifica alla
cartella
Drive restituisce la lettera del drive per la cartella
Files restituisce tutti i file presenti nella cartella
IsRootFolder restituisce True se è la cartella principale
Name imposta o restituisce il nome della cartella
ParentFolder restituisce un oggetto che punta alla cartella superiore.
Path restituisce il percorso della cartella
ShortName restituisce il nome Dos della cartela
ShortPath restituisce il nome Dos del percorso della cartella
Size restituisce la dimensione di file e sottocartelle presenti nella
cartella corrente
Subfolder restutuisce l'elenco di tutte le sottocartelle presenti nella
cartella corrente
Type restituisce una descrizione della cartella corrente come stringa
I metodi dell'oggetto cartella permettono di copiare, cancellare e spostare una cartella. Inoltre c'è un metodo che permette di creare un file di testo.
Copy(destinazione,sovrascrittura) Copia la cartella corrente nella posizione di destinazione, sovrascivendo una cartella esistente se la proprietà sovrascrittura è impostata a True
Delete(force) Cancella la cartella corrente e i suoi contenuti. Il parametro force impostato a true elimina anche le cartelle in sola lettura.
Move(destinazione) sposta la cartella corrente è il suo contenuto 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.
Vediamo qualche esempio dove sono applicati i concetti appena incontrati.
Questo esempio, partendo dalla cartella pricipale, elenca tutte le sue sottocartelle.Si noti la crezione dei tre oggetti che permettono di realizzare questo script: ognuno e un sotto oggetto dell'altro.
<script language="vbscript">
Dim Drive,folder, subfolder,elemFolder
Drive="C:"
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetDrive (Drive).RootFolder
Set subfolder = folder.Subfolders
Document.write "Le sottocartelle della cartella principale sono:<br>"
For each elemFolder in subfolder
document.write elemFolder & "<br>"
next
</script>
Con il prossima esempio vediamo come copiare una cartella. Per poter eseguire lo script occorre prima creare una cartella chiamata prova in C:
<script language="vbscript">
Dim Drive, folder, folderorigine, folderdestinazione
folderorigine="c:prova"
folderdestinazione="c:windows"
Set fso = CreateObject("Scripting.FileSystemObject")
set folder = fso.GetFolder (folderorigine)
folder.Copy folderdestinazione,true
document.write "La cartella " & folderorigine & " è stata copiata in " & folderdestinazione & "."
</script>
Infine vediamo i file contentuti nell'Hard Disk:
<script language="vbscript" >
Dim Drive, folder, file, elemfile
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder ("c:")
Set file = folder.Files
document.write "I file nella cartella C: sono <br>"
For Each elemfile in file
document.write elemfile & "<BR>"
next
</script>
