strdos= "robocopy " & Chr(34) & strsorgente & Chr(34) & " " & strdestination & "Bck" & strname & " /e /R:2 /W:5 /V /LOG:" & strdes & "risultato.log"
WshShell.Run(strcmd)
strdos2= "notepad.exe " & strdestination & "risultato.log"
WshShell.Run(strcmdr)