drivedest = “C:” disco di destinazione
drivesource = “C:sourceFolder” ‘cartella sorgente

‘########### genera cartelle utilizzando data/ora ###############################
tempdate = now()
‘il formato è %anno-mese-giorno oo:mm%
 filenamedate = DatePart (“yyyy”,tempdate)
 filenamedate = filenamedate & “-” & DatePart(“m”,tempdate)
 filenamedate = filenamedate & “-” & DatePart (“d”,tempdate) & “_”
   temp = DatePart (“h”,tempdate)
If temp < 10 Then temp = “0” & temp
  filenamedate = filenamedate & temp & “h”  ‘hour as hh
   temp =  DatePart (“n”,tempdate)
If temp < 10 Then temp = “0” & temp
 filenamedate = filenamedate & temp  ‘minutes as mm
‘#####################genero la stringa per il backup ###########################
backupcmd = “xcopy” & ” ” & drivesource & ” ” & drivedest & “” & filenamedate & ” /s /c /d /e /h /i /r /k /y”

‘#################### Esecuzione del backup #####################################
Set oShell = CreateObject(“WScript.Shell”)
strCommand = oShell.Run(backupcmd,0,True)
If strCommand <> 0 Then
MsgBox “Errore: ” & strCommand
Else
MsgBox “backup completato correttamente!”
End If
 
‘#################### help comandi xcopy ########################################
‘/S        Copia directory e sottodirectory tranne quelle vuote.
‘/C        Continua a copiare anche in caso di errori.
‘/D:m-d-y  Copia i  file modificati a partire dalla data specificata. Se non sono indicate date, copia solo i file con ora di origine più recente dell’ora di destinazione.
‘/E        Copia directory e sottodirectory, comprese quelle vuote. Analogo a /S /E. Può essere utilizzata per modificare /T.
‘/H        Copia anche i file nascosti e di sistema.
‘/I        Se la destinazione non esiste e la copia riguarda più file, presuppone che la destinazione sia una directory.
‘/R        Sovrascrive i file di sola lettura.
‘/K        Copia gli attributo. Il normale Xcopy reimposta gli attributi di sola lettura.
‘/Y        Elimina la richiesta di conferma Suppresses prompting to confirm you want to overwrite an existing destination file.
‘#################### help comandi xcopy ########################################