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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.