Discussion :

[Baka59]

bonjour,

Voilà j'ai un fichier.TXT qui contient ceci :

• xml1.xml
• xml2.xml
• param.xml
• diff.xml

j'ai un répertoire "REP_XML" qui contient plusieurs fichiers :

• xml3.xml
• xml_diff.xml
• xml1.xml
• xml2.xml
• param.xml
• xml1.xml
• diff.xml
• xml_all.xml

j'aimerais pouvoir déplacer les fichiers indiqué dans le fichier.txt, du répertoire "REP_XML" vers un répertoire "REP_XML_SERVER".

merci d'avance

[hackoofr]

Inspirez-vous de la Comment déplacer,renommer un fichier ?
et écrivez votre bout de code,et si vous avez encore un problème qui vous tracasse ,posez votre question en postant votre code et

[Baka59]

Voilà mon code.
Donc j'ai voulu faire une boucle qui lit ligne par ligne mon fichier txt, donc il lit la première ligne, ensuite on va dans une nouvelle boucle pour lire les fichiers du répertoire et je teste le nom de chaque fichier jusqu'à ce qu'il correspond à la première ligne de mon fichier txt.
Une fichier que c'est égale, on déplace le fichier du répertoire vers un autre. puis on repasse dans la première boucle à la deuxième ligne......

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
 
Const ForReading = 1, ForWriting = 2 
Dim oFso, f, stRep, oFl, oF2
stRep = "MEP_KILPRO_XML"
Set oFso = CreateObject("Scripting.FileSystemObject")
 
 
  Set f = oFso.OpenTextFile("MES_XML.txt", ForReading)
  while Not f.AtEndOfStream 
	f.ReadLine=oF2
		If oFSo.FolderExists(stRep) Then
			For each oFl in  oFSO.GetFolder(stRep).Files
				if oF2 = oFl.Name Then
					oFSO.MoveFile "MEP_KILPRO_XML".oF1.name,"XML_SERVER"
				End If
			Next
		End If
  Wend
  f.Close

[pitchalov]

Bonjour,

En partant de ton code, je pense que ce serait plus simple ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Const ForReading = 1
strInputRep = "C:\MEP_KILPRO_XML\"
strOuputRep = "C:\XML_SERVER\"
Set oFso = CreateObject("Scripting.FileSystemObject")
Set f = oFso.OpenTextFile("MES_XML.txt", ForReading)
If Not oFso.FolderExists(strInputRep)Then WScript.Quit
If Not oFso.FolderExists(strOuputRep)Then WScript.Quit
Do Until f.AtEndOfStream 
	oF2 = f.ReadLine
	If oFso.FileExists(strInputRep & oF2) Then oFso.MoveFile strInputRep & oF2, strOuputRep
Loop
f.Close

Bonne continuation

[Baka59]

merci je vais essayer de comprendre comment le code fonctionne et l'adapter