Titre: Lister les fichiers dans le répertoire en cours.
Description:
Affiche tous les fichiers avec l'extension *.xxx
Le code:
Private Sub Command1_Click()
Dim ListeFichier, FichNom$(1 To 200), Cr1%, Vr1%, Vr2%
Dim LS$
LS = Chr(13) & Chr(10)
On Error GoTo Erreur:
'Met chaque nom de fichier dbx dans une variable
ListeFichier = Dir("*.vbp")
FichNom(1) = ListeFichier
For Cr1 = 2 To 200
ListeFichier = Dir
FichNom(Cr1) = ListeFichier
Vr1 = Vr1 + 1
Next
Saut1:
Vr2 = Vr1
For Cr1 = 1 To Vr1
LstDBX.AddItem FichNom(Vr2), 0
Vr2 = Vr2 - 1
Next
'-------------------------------------
GoTo Fin:
Erreur:
If Err = 5 Then GoTo Saut1: 'Nombre de fichiers < à 200
'-------------------------------------
Fin:
End Sub |