Const forAppending = 8, forwriting = 2 Const ModeAscii = 0, ModeUnicode = -1
Set objFSO = CreateObject("Scripting.FileSystemObject" ) Set fso = CreateObject("Scripting.FileSystemObject" ) 'On Error Resume Next
datejour = Date datejour = Replace(datejour,"/", "-" ) ' fichierLOG = "d:\Scripts\_FINI\ISA\ErreurEnvoiMail.Log" fichierLOG = "writedate1ascii.Log"
If Not objFSO.FileExists(fichierLOG) Then Set File = fso.CreateTextFile(fichierLOG, forWriting, ModeAscii) File.WriteLine "Le rapport du " & datejour & " n'a pu être envoyé." File.Close Else set File = fso.OpenTextFile(fichierLOG, forAppending, True, ModeAscii) file.WriteLine "Le rapport du " & datejour & " n'a pu être envoyé." file.Close End If |