Manipulation de fichiers et contenu.

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

:salut:
Inspirez-vous de la :faq: 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 :tagcode:

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:

---

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

---

Bonjour,

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

Code:

---

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

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