Lister tous les fichiers d'un repertoire

Soyez le premier à donner votre avis sur cette source.

Snippet vu 89 737 fois - Téléchargée 7 fois

Contenu du snippet

Function GetFilesPathFromDirectory(ByVal sDir As String, ByRef aRet() As String,  _
                        Optional ByVal sFilter As String = "*.*") As Long
Dim Fso As Object
Dim Fi
   GetFilesPathFromDirectory = -1
   Set Fso = CreateObject("Scripting.FileSystemObject")
   ReDim aRet(0)
   For Each Fi In Fso.GetFolder(sDir).Files
        'transformation du filtre pour en ressortir par ex: dll au lieu de  *.dll
       sFilter = Right(sFilter, (Len(sFilter) - InStrRev(sFilter, ".")))
       'recuperation de l'extension du  fichier
       If (Fso.GetExtensionName(Fi.Path) = sFilter) Or (sFilter = "*") Then
           'incrépentation de  la valeur a retourner
           aRet(UBound(aRet)) = Fi.Path
           ReDim Preserve aRet(UBound(aRet) + 1)
       End If
   Next
   'redimensionne le tableau pour que le dernier élément ne soit  pas vide
   ReDim Preserve aRet(UBound(aRet) - 1)
   GetFilesPathFromDirectory = UBound(aRet)
   Set Fso = Nothing
   Set Fi = Nothing
   
End Function


Compatibilité : VB6

Disponible dans d'autres langages :

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.