1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| ' Copie d'archive Notes
'récupération de l'identifiant windows de la session ouverte
Set WshShellObj = WScript.CreateObject("WScript.Shell")
Set WshProcessEnv = WshShellObj.Environment("Process")
WScript.Echo WshProcessEnv("USERNAME")
'déclaration file system object
Dim fso
'instanciation
Set FSO = CreateObject("Scripting.FileSystemObject")
'Vérification de la présence du dossier archive
IF fso.FolderExists("E:\notes\data\archive") THEN
'Copie du fichier et ecrasement de celui-ci dans le cas ou il existerai dans le repertoire réseau
fso.CopyFile"E:\notes\data\archive\*.nsf", "P:\archive"
END IF |