Copia in automatico tramite script vbs

Con questo script verrà creata 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 appenna 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 (guarda la parte in rosso):

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.
Condividi su Google Plus

Info su Giovanni Di Mauro

Questa è una breve descrizione nel blocco dell'autore sull'autore. Lo modifichi inserendo il testo su "Informazioni biografiche" nel pannello di amministrazione dell'utente.
    Commenti da Blogger
    Commenti da Facebook

0 commenti :

Posta un commento