1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
|
dim dossier
dossier= day(now)& "-" & month(now)& "-"& year (now)
Set objFSO = CreateObject("scripting.FileSystemObject")
Set objFolder = objfso.createfolder("\\Serveur-donnees\longitude$\"&dossier)
' copie des fichier longitude
Const OverWriteFiles = TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "D:\Sedit\export\SMPROD" , "\\Serveur-donnees\longitude$\"&dossier, OverWriteFiles
' compression des fichiers
'Set fso = CreateObject("Scripting.FileSystemObject")
'set shl = createobject("wscript.shell") 'variable shell run
'shl.run "cmd /c gzip -9rf f:\bodetbd\"&day(now)& "-" & month(now)& "-"& year (now) 'commande de gzip
'D:\Sedit\export\SMPROD \\Serveur-donnees\longitude$\%yyyy%_%mm%_%dd%\*.* /s /v /y |