' ################## DONNEES dossier_source = "c:\acopier"
dossier_dest = "D:\"
On Error Resume Next
'Wscript.Echo "Début du script"
' ################## CREER LE REPERTOIRE Set fso = WScript.CreateObject("Scripting.FileSystemObject" )
strDate = Year(Now) & "-" & Right("0" & Month(Now),2) & "-" & Right("0" & Day(Now),2) & " "
strDate = strDate & Right("0" & Hour(Now),2) & "-" & Right("0" & Minute(Now),2) & "-" & Right("0" & Second(Now),2)
fso.CreateFolder(dossier_dest & strDate)
' ################## AFFICHER UNE FENETRE D'INFORMATION strComputer = "."
Set objWMIService = GetObject("Winmgmts:\\" & strComputer & "\root\cimv2" )
Set colItems = objWMIService.ExecQuery("Select * From Win32_DesktopMonitor" )
For Each objItem in colItems
intHorizontal = objItem.ScreenWidth
intVertical = objItem.ScreenHeight
Next
Set objExplorer = CreateObject _
("InternetExplorer.Application" )
objExplorer.Navigate "about:blank" objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Left = (intHorizontal - 400) / 2
objExplorer.Top = (intVertical - 100) / 2
objExplorer.Width = 400
objExplorer.Height = 100
objExplorer.Visible = 1 objExplorer.Document.Body.Style.Cursor = "wait"
objExplorer.Document.Title = "Copie de " & dossier_source objExplorer.Document.Body.InnerHTML = "<div align=center><font face=arial><b>Copie en cours, merci de patienter.</b></font></div>"
' ################## COPIER LE REPERTOIRE fso.CopyFolder dossier_source , dossier_dest & strDate, true
' ################## FREMER LA FENETRE objExplorer.Document.Body.Style.Cursor = "default"
objExplorer.Quit
Wscript.Echo "Copie terminée"
|