A voir également:
- Lister les fichiers d'un répertoire donné et leur taille
- Donne moi une lettre au hasard ✓ - Forum Java
- Donne moi une couleur au hasard ✓ - Forum PHP
- Lettre aléatoire - Forum Visual Basic
- Petites boîtes de fichiers - Forum VBScript (VBS)
- Chaine de caracteres aléatoire - Forum C / C++ / C++.NET
2 réponses
bien si tu ne veut que les fichier(dll) qui ce trouve dans le dossier c:\windows\system\*.dll voici un bout de code mais si tu veux toutes les DLL's qui ce trouve aussi dans les sous-dossiers .... bien c un peu plus compliquer !
Le Code:
'Ici je vais te faire une petite procédure qui va lister toutes les DLL dans une ListBox,
Private Sub cmdChercherDLL_Click()
' Appel la procédure de recherche en lui indiquant le répertoire de recherche, le type de fichier à chercher et le control ListBox dans lequel seras lister tous les fichiers trouver
Call SearchFiles("C:\Windows\System", "*.dll", List1)
End Sub
'========================================================='
Public Sub SearchFiles(ByVal StartPath As String, ByVal Ext As String, lstName As ListBox)
Dim Search As String
Dim Filename As String
' Vide la ListBox
lstName.Clear
' Lance la recherche
Search = Dir$(StartPath & Ext, vbHidden + vbSystem + vbNormal + vbArchive + vbReadOnly)
' Si différent de rien
If Search <> "" Then
' Commence la boucle
Do
If (Search <> "." And Search <> "..") Then
' Ajoute seulement le nom du fichier trouver
lstName.AddItem Search
' Pour le chemin d'accès complet
' lstName.AddItem StartPath & Search
End If
' Recherche le prochain fichiers
Search = Dir$()
' Boucle tant que Search ne seras pas égale à rien
Loop Until Search = ""
End If
End Sub
Si tu as un problème avec ce code écrit moi : [mailto:VB__MAN@Hotmail.com VB_MAN]
Le Code:
'Ici je vais te faire une petite procédure qui va lister toutes les DLL dans une ListBox,
Private Sub cmdChercherDLL_Click()
' Appel la procédure de recherche en lui indiquant le répertoire de recherche, le type de fichier à chercher et le control ListBox dans lequel seras lister tous les fichiers trouver
Call SearchFiles("C:\Windows\System", "*.dll", List1)
End Sub
'========================================================='
Public Sub SearchFiles(ByVal StartPath As String, ByVal Ext As String, lstName As ListBox)
Dim Search As String
Dim Filename As String
' Vide la ListBox
lstName.Clear
' Lance la recherche
Search = Dir$(StartPath & Ext, vbHidden + vbSystem + vbNormal + vbArchive + vbReadOnly)
' Si différent de rien
If Search <> "" Then
' Commence la boucle
Do
If (Search <> "." And Search <> "..") Then
' Ajoute seulement le nom du fichier trouver
lstName.AddItem Search
' Pour le chemin d'accès complet
' lstName.AddItem StartPath & Search
End If
' Recherche le prochain fichiers
Search = Dir$()
' Boucle tant que Search ne seras pas égale à rien
Loop Until Search = ""
End If
End Sub
Si tu as un problème avec ce code écrit moi : [mailto:VB__MAN@Hotmail.com VB_MAN]
