Copies de fichiers

Version imprimable

03/02/2012, 09h53
genius2139

Copies de fichiers
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

:salut:

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

Citation:

Envoyé par hackoofr

:salut:

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

Merci beaucoup!