PARCOURS DE FICHIER D'UN RÉPERTOIRE
cs_zmat
Messages postés
13
Date d'inscription
lundi 26 novembre 2001
Statut
Membre
Dernière intervention
29 octobre 2002
-
7 avril 2002 à 10:16
cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 - 5 août 2006 à 00:25
cs_PaTaTe Messages postés 2126 Date d'inscription mercredi 21 août 2002 Statut Contributeur Dernière intervention 19 février 2021 - 5 août 2006 à 00:25
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2963-parcours-de-fichier-d-un-repertoire
https://codes-sources.commentcamarche.net/source/2963-parcours-de-fichier-d-un-repertoire
5 août 2006 à 00:25
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
FindClose Rep
apres ta bloucle
Ca evitera les fuites de mémoire.
18 janv. 2004 à 21:46
Merci à toi Zmat ;)
7 avril 2002 à 10:16
Essai ça
'Renvoi la liste de fichier d'un repertoire (sans API)
'Path = Repertoire de recherche
'Destination = Référence d'un contrôle ListBox
'Extension = Extension du type de fichier à chercher
Public Sub DirFileList(Path As String, Destination As ListBox, Optional Extension = "*.*")
Dim FileName As String 'Nom d'un fichier d'un repertoire
On Error GoTo ErrHandler 'Active le gestionnaire d'erreurs
'Supprime le "" à la fin de Path
If Right(Path, 1) "" Then Path Mid(Path, 1, Len(Path) - 1)
'Renvoi le premier fichier du repertoire
FileName = Dir(Path & "" & Extension)
'Efface la zone de liste qui contiendra la liste de répertoire
Destination.Clear
'Recherche et ajout des fichiers trouvé à la liste
While FileName <> ""
Destination.AddItem FileName
FileName = Dir 'Renvoi le prochain fichier du même repertoire
DoEvents
Wend
'C terminé, on sort
Exit Sub
ErrHandler:
MsgBox Err.Description, vbCritical, "Erreur " & Err.Number
End Sub
'Exemple d'utilisation :
'Pour renvoyer la liste complète de fichiers sur le "C:"
DirListFile "C:", List1
'Pour renvoyer les fichiers .Log sur "C:"
DirListFile "C:", List1, "*.log"
'Donne m'en des nouvelles ... ;-)