Bonjour,
J'ai fait un script en vbs qui crée un batch(Dos)et qui l'execute, tout ca pour copier un fichier.
Mon pb est que le fichier arrivé est de taille differente de celui de base.
Si quelqu'un avais une idée ca me rendrais bien service.
Merci d'avance pour l'aide que vous pourrez m'apporter.
Voici mon script:
Set WshShell = CreateObject("Wscript.Shell" )
Dim fso, CopieDate
Set fso = CreateObject("Scripting.FileSystemObject" )
Set CopieDate = fso.CreateTextFile("c:\copiedate\date.bat", True)
Set WshShell = CreateObject("WScript.Shell" )
On Error Resume Next
dtmDemain = DateAdd("d",1,Date)
strAnnee = DatePart("yyyy",dtmDemain)
If DatePart("m",dtmDemain) < 10 Then
strMois = 0 & DatePart("m",dtmDemain)
Else
strMois = DatePart("m",dtmDemain)
End If
If DatePart("d",dtmDemain) < 10 Then
strJour = 0 & DatePart("d",dtmDemain)
Else
strJour = DatePart("d",dtmDemain)
End If
strDemain = strJour & strMois
CopieDate.WriteLine("copy c:\copiedate\test\" & strDemain & "_*.pdf" & " " & "c:\copiedate\Jeux" & strDemain & ".pdf" )
CopieDate.Close
Return = WshShell.Run("c:\copiedate\date.bat", 0, true)
'Wscript.Sleep 1000
Set CopieDate = fso.GetFile("c:\copiedate\date.bat" )
CopieDate.Delete