VBS- Looger le transfert de fichiers de ce script

Version imprimable

Bonjour à tous,

N'étant pas un scripteur fou... je fais appel à la communauté pour tenter d'obtenir un résultat.
Le but étant de logger le transfert de fichier qui se fait via ce script, ou bien d'avoir un suivi de son exécution.
Ce que je souhaite c'est savoir ce qui transite entre racineCible et racineSource:

###############################################
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Dim FSys Set FSys = CreateObject("Scripting.FileSystemObject") Dim racineCible racineCible = "C:\Transfert1" Dim racineSource racineSource = "E:\Transfert2" Dim BDCible BDCible = "D:\TestCible" Dim pathTo '** déplacement des fichiers **' pathTo = racineCible & "\TEST1\" Set oFolder = FSys.GetFolder(racineSource & "\TEST1") For Each oFile In oFolder.Files 'si le fichier cible existe déjà alors on force la suppression If FSys.FileExists(pathTo & oFile.Name) Then FSys.DeleteFile(pathTo & oFile.Name), True Else 'on déplace le nouveau fichier FSys.MoveFile oFile, pathTo End If Next
##################################################

Merci d'avance pour vos idées.

25/07/2012, 11h01
omen999
bonjour,
soit créer un fichier log texte avant la boucle et alimenter ce fichier ici :
Code:

1 2 3 4 5 Else 'on déplace le nouveau fichier FSys.MoveFile oFile, pathTo fLog.WriteLine Now & " " & oFile.Name End If
sinon la méthode LogEvent est utile si on veut enregistrer tout ça dans le journal des évènements de windows
25/07/2012, 16h45
dimdelille
Citation:
Envoyé par omen999

bonjour,
soit créer un fichier log texte avant la boucle et alimenter ce fichier ici :

Code:

1 2 3 4 5 Else 'on déplace le nouveau fichier FSys.MoveFile oFile, pathTo fLog.WriteLine Now & " " & oFile.Name End If

sinon la méthode LogEvent est utile si on veut enregistrer tout ça dans le journal des évènements de windows
Je vois pas la manière pour alimenter le fichier de log, faut-il le déclarer au début du script. Le dev n'est vraiment pas ma tasse de thé !!!
25/07/2012, 17h15
omen999

avant la boucle :

Code:

Set fLog = FSys.CreateTextFile("D:\TestCible\monfichierlog.txt", True)

Citation:

Envoyé par omen999

avant la boucle :

Code:

Set fLog = FSys.CreateTextFile("D:\TestCible\monfichierlog.txt", True)

Je viens de procéder à la modification suivante sur le script:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim FSys
Set FSys = CreateObject("Scripting.FileSystemObject") 
Dim racineCible
racineCible = "E:\test1"
Dim racineSource
racineSource = "C:\test2"
Dim pathTo
 
'** déplacement des fichiers du toto 	**'
 
pathTo = racineCible & "\toto\"
Set oFolder = FSys.GetFolder(racineSource & "\toto") 
Set fLog = FSys.CreateTextFile("C:\monfichierlog.txt", True)	
 
For Each oFile In oFolder.Files 
   If FSys.FileExists(pathTo & oFile.Name) Then					       'si le fichier cible existe déjà alors on force la suppression
      FSys.DeleteFile(pathTo & oFile.Name), True
   Else
      FSys.MoveFile oFile, pathTo 						             'on déplace le nouveau fichier
      fLog.WriteLine Now & " " & oFile.Name
End If
Next

Le fichier de log se crée bien à l'endroit défini, le problème est que le fichier txt est vide ?

Merci pour ta patience... as-tu une idée?

je pense que tu veux plutôt faire ça...

Code:

1
2
3
4
5
6
7
For Each oFile In oFolder.Files 
  If FSys.FileExists(pathTo & oFile.Name) Then					       'si le fichier cible existe déjà alors on force la suppression
      FSys.DeleteFile(pathTo & oFile.Name), True
  End If
  FSys.MoveFile oFile.Name, pathTo 						             'on déplace le nouveau fichier
  fLog.WriteLine Now & " " & oFile.Name
Next