Discussion :

[PierreXV]

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

[pc75]

Bonjour,

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

Code :

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

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

[PierreXV]

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

Bonne continuation à toi