Ouvrir un fichier

Signaler
Messages postés
4
Date d'inscription
lundi 3 mai 2004
Statut
Membre
Dernière intervention
6 mai 2004
-
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
-
Je voudrais savoir comment ouvrir un fichier en ne connaissant que certains mots du nom du fichier.
Rob

1 réponse

Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Modérateur
Dernière intervention
23 décembre 2008
22
Par exemple, pour ouvrir un fichier dont le répertoire est connu, mais qui contiendrait le mot TOTO dans son nom :

Un objet FileListBox nommé File1 sur ton formulaire nommé Form1

Dim i As Long
Dim filename As String

    Form1.File1.Path = repertoire_du_fichier
    For i = 0 To Form1.File1.ListCount - 1
        If InStr(1, Form1.File1.List(i), "TOTO") <> 0 Then
            filename = Form1.File1.List(i)
            Exit For
        End If
    Next i
    Open filename For Input As #2
        ... 'ce que tu veux ici
    Close #2


Tout ceci n'est bien sûr valide que si le mot "TOTO" est discriminant vis à vis de tous les fichiers qui se trouvent dans ton répertoire.

Manu