Vb6+remplir
Résolu
spootnic22
Messages postés
84
Date d'inscription
mardi 31 octobre 2006
Statut
Membre
Dernière intervention
30 janvier 2010
-
7 déc. 2006 à 11:32
spootnic22 Messages postés 84 Date d'inscription mardi 31 octobre 2006 Statut Membre Dernière intervention 30 janvier 2010 - 7 déc. 2006 à 13:13
spootnic22 Messages postés 84 Date d'inscription mardi 31 octobre 2006 Statut Membre Dernière intervention 30 janvier 2010 - 7 déc. 2006 à 13:13
A voir également:
- Vb6+remplir
- Vb6 wait ✓ - Forum Visual Basic 6
- Vb6 windows 10 ✓ - Forum Visual Basic 6
- Vb6 mid ✓ - Forum Visual Basic
- Vb6 split ✓ - Forum Visual Basic 6
- Datediff vb6 ✓ - Forum Visual Basic 6
2 réponses
le cancre
Messages postés
292
Date d'inscription
mercredi 25 octobre 2006
Statut
Membre
Dernière intervention
27 novembre 2009
7 déc. 2006 à 13:05
7 déc. 2006 à 13:05
tu liste tout les fichiers de ton répertoire,et tu l'ajoute si le fichier à l'extension .dbf
voici un exemple
Private Sub Command1_Click()
combo1.Clear
call AfficheFichier("AdresseDeTonDossier")
end sub
Private Sub AfficheFichier(Url as string)
Dim fichier As String
fichier = Dir$(Url, vbDirectory)
While fichier <> ""
If Right(fichier, 4) = " .dbf " Then combo1.additem fichier
fichier = Dir$
Wend
End Sub
voici un exemple
Private Sub Command1_Click()
combo1.Clear
call AfficheFichier("AdresseDeTonDossier")
end sub
Private Sub AfficheFichier(Url as string)
Dim fichier As String
fichier = Dir$(Url, vbDirectory)
While fichier <> ""
If Right(fichier, 4) = " .dbf " Then combo1.additem fichier
fichier = Dir$
Wend
End Sub
spootnic22
Messages postés
84
Date d'inscription
mardi 31 octobre 2006
Statut
Membre
Dernière intervention
30 janvier 2010
7 déc. 2006 à 13:13
7 déc. 2006 à 13:13
Salut,
merci infiniment ça marche très bien
Merci.
merci infiniment ça marche très bien
Merci.
