Discussion :

[dimdelille]

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.

[omen999]

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

Code :

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

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

[dimdelille]

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

Code :

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

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é !!!

[omen999]

avant la boucle :

Code :

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

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

[dimdelille]

avant la boucle :

Code :

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

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

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

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
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?

[omen999]

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

Code :

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

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