1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
| '**********************************************************************
' Script Visual Basic ActiveX
'************************************************************************
Function Main()
Dim objet_fso
Dim sysDate
Dim Source
Dim Dest
sysDate = now()
Set objet_fso = CreateObject("Scripting.FileSystemObject")
Source="\\serveur\groups$\Direction_RH\Anomalies de pointage\anomalies.xls"
Dest="\\serveur\groups$\Direction_RH\Anomalies de pointage\anomalies" & right("00" & DatePart("d",sysDate ),2) & Right("00" & DatePart("m", sysDate ),2) & DatePart("yyyy", sysDate ) & ".xls"
If objet_fso.FileExists(Source) Then
objet_fso.MoveFile Source, Dest
End If
Source="\\serveur\groups$\Direction_RH\Anomalies de pointage\Nepasdetruire_anomalies.xls"
Dest="\\serveur\groups$\Direction_RH\Anomalies de pointage\anomalies.xls"
objet_fso.CopyFile Source, Dest
Main = DTSTaskExecResult_Success
End Function |
Partager