Ouvrir un fichier
roblemechant
Messages postés
4
Date d'inscription
lundi 3 mai 2004
Statut
Membre
Dernière intervention
6 mai 2004
-
3 mai 2004 à 09:46
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 3 mai 2004 à 11:16
econs Messages postés 4030 Date d'inscription mardi 13 mai 2003 Statut Membre Dernière intervention 23 décembre 2008 - 3 mai 2004 à 11:16
1 réponse
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
3 mai 2004 à 11:16
3 mai 2004 à 11:16
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
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
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
