Copies de fichiers [Résolu]

[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 :

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 :

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]

Envoyé par hackoofr

Code :

Merci beaucoup!