[VBS] Lecture de plusieurs fichiers .ini dans le même dossier

Bonjour à tous

Je dois traiter plusieurs fichiers .ini ayant les mêmes caractéristiques à l'intérieur et les copier dans un .csv. J'arrive pour le moment à traiter qu'un seul fichier ini à la fois. Avez vous une solution pour lire le dossier comportant tous les ini

Un truc du genre :
Dim ObjTextStream: Set ObjTextStream = fso.OpenTextFile("C:\TEMP\*.ini")


Merci d'avance :)

Bonjour,

En bouclant sur la collection des fichiers du répertoire :

Code:

---

1 2 3 4 5 6 7 8 9 10

Set fs = CreateObject("Scripting.FileSystemObject") Set dossier = fs.getfolder(racine) 'DossierRacine ligne = 2 For Each f In dossier.Files if uCase(Right(f.Name, 4)) = ".INI" then ' TRAITEMENT ..... end if ligne = ligne + 1 Next

---

Tu es trop un génie du mal pc75 !!!
Merci beaucoup ! Depuis tout à l'heure je tournais en rond et avec ton code c'est tout de suite plus clair :D

Bonne continuation à toi