Discussion :

[metalimad]

J'aimerai ouvrir séquentiellement tous les fichiers textes (en fait c même des CSV) d'un repertoire, leur faire un traitement (formatage de caractères) et les réengistrer de manière automatique.

pour l'instant mon appli marche, mais je dois parcourir les fichiers un par un (sachant qu'il y en 198 ..)

y a til un moyen pour ce faire :

[Catbull]

Tu peux utiliser l'objet FileSystemObject. Il existe un exemple dans la doc VB. Le voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub AfficheListeFichier(specdossier)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(specdossier)
    Set fc = f.Files
    For Each f1 in fc
        s = s & f1.name 
        s = s &  vbCrLf
    Next
    MsgBox s
End Sub

[metalimad]

Ok merci bien, j'ai effectivement utilisé qqch qui ressemble à ça :

Dim Fs, Rep, Fichier
Set fs = CreateObject("Scripting.FileSystemObject")
Set Rep = fs.GetFolder(Text2.Text) 'mon repertoire
For Each Fichier In Rep.Files
TRAITEMENT
next

[Mr Capone]

Tu peux utiliser l'objet FileSystemObject. Il existe un exemple dans la doc VB. Le voici :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub AfficheListeFichier(specdossier)
    Dim fs, f, f1, fc, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(specdossier)
    Set fc = f.Files
    For Each f1 in fc
        s = s & f1.name 
        s = s &  vbCrLf
    Next
    MsgBox s
End Sub

Bonjour comment peut on vérifier si il y ou non des fichiers dans le repertoire avec le code de Catbull ? :

[shwin]

cette ligne créé une collection: Set fc = f.Files

donc tu boucle sur la collection

Code :

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

1
2
3
4
5
 
For Each f1 in fc
        s = s & f1.name
        s = s &  vbCrLf
    Next

si ya pas de fichier dans le répertoire, ton msgbox s va tout simplement afficher vide.

[Mr Capone]

Ok merci c'est ce que je vient de voir , je pensait qu'il fallait faire un test sinon il renvoyait une erreur merci.. et désolé d'avoir dépouissierait un topic