Lister tous les fichiers d'un repertoire
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
- Lister tous les fichiers d'un repertoire
- Tous répertoires - Forum VB.NET
- Vscode rechercher dans tous les fichiers ✓ - Forum Visual Basic 6
- Rechercher des fichiers commençant par le même nom ✓ - Forum VB.NET
- Search & Replace dans TOUS les fichiers d'un dossier. ✓ - Forum VB.NET
- Rechercher/Remplacer dans un fichier ✓ - Forum VB.NET
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.