Discussion :

[genius2139]

Bonjour,

Je souhaiterais créer un script qui me permet de copier des fichiers d'une ressource à une autre avec la création d'un fichier LOG traçant les fichiers copiés. Au début du LOG il doit y avoir la date du jour. A la fin du script, le LOG devra être envoyé par mail. Le script sera lancé par un planificateur des Tâches tous les jours.

J'ai trouvé comment copié les fichiers et envoyé par mail le LOG Mais je ne sais pas comment créer le LOG.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "\\monserveur\test.txt", "\\monserveur\echange\"
Set objFSO = Nothing

Merci par avance

[hackoofr]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "\\monserveur\test.txt", "\\monserveur\echange\"
Set f = fso.OpenTextFile("LOG.txt",8,true)
f.writeLine "Le "& Day(Now)& "/"& Month(Now)& "/" & Year(Now)& " @ "& Hour(Now)& ":"& Minute(Now)& ":"& Second(Now)
f.writeLine "Le Fichier \\monserveur\test.txt est copié dans \\monserveur\echange\"
f.writeLine String(100,"*")
Set FSO = Nothing

[genius2139]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile "\\monserveur\test.txt", "\\monserveur\echange\"
Set f = fso.OpenTextFile("LOG.txt",8,true)
f.writeLine "Le "& Day(Now)& "/"& Month(Now)& "/" & Year(Now)& " @ "& Hour(Now)& ":"& Minute(Now)& ":"& Second(Now)
f.writeLine "Le Fichier \\monserveur\test.txt est copié dans \\monserveur\echange\"
f.writeLine String(100,"*")
Set FSO = Nothing

Merci beaucoup!