AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 23 15:29:48
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : Recherche dossier sur tout les disque dur [ Archives Visual Basic / Fichier / Disque ] (mxcz)

dimanche 4 juillet 2004 à 18:11:29 | Recherche dossier sur tout les disque dur

mxcz

Bonjour,

Pouvez vous m'aider, je cherche le code afin de pouvoir
faire une recherche d'un dossier XXXX sur tout les disque d'ur puis afficher la liste des fichier de ce dossier dans un listbox.

Merci Beaucoup..
dimanche 4 juillet 2004 à 23:59:50 | Re : Recherche dossier sur tout les disque dur

NoMitsu
alors dans un module tu met sa :


Option Explicit
'---- Declaration des API ----------------------------------
Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As WIN32_FIND_DATA) As Long
Private Declare Function FindClose Lib "kernel32" (ByVal hFindFile As Long) As Long
Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long
'-----------------------------------------------------------

'---- Declaration des Constantes ---------------------------
Private Const MAX_PATH = 260
Private Const INVALID_HANDLE_VALUE = -1
Private Const FILE_ATTRIBUTE_DIRECTORY = &H10
'-----------------------------------------------------------

'---- Declaration des Types --------------------------------
Private Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type
'-----------------------------------------------------------

Public Function Find_Dossier(ByVal vPath As String, ByVal vRecherche As String) As String
Dim vDir As String 'Nom du dossier en cour
Dim TabFolder() As String 'Tableau contenant les sous dossier

Dim NbrD As Integer 'Nbr de dossier dans le dossier
Dim i As Long

Dim hSearch As Long 'Handle pour la recherche
Dim WFD As WIN32_FIND_DATA


If Right(vPath, 1) <> "\" Then vPath = vPath & "\"

hSearch = FindFirstFile(vPath & "*", WFD)
If hSearch = INVALID_HANDLE_VALUE Then Exit Function

Do
vDir = Left(WFD.cFileName, InStr(WFD.cFileName, Chr(0)) - 1)

If vDir <> "." And vDir <> ".." Then
If GetFileAttributes(vPath & vDir) And FILE_ATTRIBUTE_DIRECTORY Then
ReDim Preserve TabFolder(NbrD)
TabFolder(NbrD) = vDir

NbrD = NbrD + 1
If vDir = vRecherche Then Find_Dossier = Find_Dossier & vPath & vDir & "|"
End If
End If
Loop While FindNextFile(hSearch, WFD)

Call FindClose(hSearch)

For i = 0 To NbrD - 1
Find_Dossier = Find_Dossier + Find_Dossier(vPath & TabFolder(i) & "\", vRecherche)
Next i
End Function

Public Function Enum_Fichier(ByVal vPath As String) As String
Dim vFichier As String

If Right(vPath, 1) <> "\" Then vPath = vPath & "\"

vFichier = Dir(vPath, vbHidden + vbArchive)

Do While vFichier <> ""
Enum_Fichier = Enum_Fichier & vFichier & "|"
vFichier = Dir
Loop
End Function


et puis dans une form avec une list tu rajoute sa


Option Explicit

Private Sub Form_Load()
Dim Dossier() As String
Dim Fichier() As String

Dim i As Long, j As Long

Dossier() = Split(Find_Dossier("C:\", "WINDOWS"), "|")

For i = 0 To UBound(Dossier) - 1
Fichier() = Split(Enum_Fichier(Dossier(i)), "|")
Debug.Print Dossier(i)

For j = 0 To UBound(Fichier) - 1
List1.AddItem Dossier(i) & "\" & Fichier(j)
Next j
Next i
End Sub


voila j'espere que c se que tu voulais ++
mercredi 7 juillet 2004 à 09:08:52 | Re : Recherche dossier sur tout les disque dur

mxcz

Bonjour NoMitsu

Je te remercie beaucoup pour le code , je suis actuellement en deplacement, des mon retour je teste ton code...

Je te tien informer Merci A bientôt.

mercredi 7 juillet 2004 à 09:08:59 | Re : Recherche dossier sur tout les disque dur

mxcz

Bonjour NoMitsu

Je te remercie beaucoup pour le code , je suis actuellement en deplacement, des mon retour je teste ton code...

Je te tien informer Merci A bientôt.

samedi 1 janvier 2005 à 19:31:12 | Recherche fichier

Ke0z
Bonjour, moi je voudrai savoir comment rechercher un type de fichier précis ? Je vus remerci d'avance, bye ^^


Cette discussion est classé dans : dossier, recherche, dur, disque

Répondre à ce message

Sujets en rapport avec ce message

Recherche d'un fichier sur tout le disque [ par Brodeur ] Bonjour, je voudrai faire un progrmme qui recherche un fichier donne sur tout le disque dur automatiquement en incluant les dossier et sous dossier.Me Rechercher d'un dossier sur plusieurs Disque [ par xabi62 ] Bonjour,Voila, je dois rechercher le dossier "cstrike" sur le disque dur mais suivant l'installation que l'utilisateur a fait du jeu, il faut faire un RECHERCHE d'un DOSSIER [ par noisy ] Comment faire pour vérifier si un dossier est bien présent dans un disque donné?par exemple vérifier si le dossier "images" est bien présent sur le di accès au dossier du disque dur [ par maple ] je voudrais limiter pour une catégorie d'utilisateur l'accès aux dossiers du disques dur; par exemple, ils ne pourront avoir accès qu'à un seul répert Il est ou le dossier windows !!!!!!!!!!!!!!!!! [ par Booster ] Slt je voudrais ne pas ordonner un disque dur a mon programe je voudrais que mon programme cherche automatiquement le disque dur ou ce trouve windowsp Recherche sur le disque dur [ par ciberrique ] Salut !!Voila, je voudrais avoir le commande en vb pour faire un recherche sur tous les disques dur, car en faite je c faire une recherche de fichier recherche de fichier pdf dans disque dur avec condition [ par Fredo25 ] Bonjouretant debutant j`ai une question :j`ai une form avec une textbox dans laquelle je replis un chiffre ex "222111" qui correspond a un numero de f chercher un dossier [ par 38fred ] Bonjour, J'ai trouver plein de code pour chercher un fichier sur le disque dur et pour renvoyer son chemin d'acces ds une variable. Mais je n'ai rien Faire créer par vb un dossier sur le disque dur [ par Jonny512 ] bonjour comment faire pour que vb crée un dossier sur le disque dur? Problème MutliThread VB.NET [ par Pym Corp ] VB.NET Salut, voilà je cherche à modifier une source de blanc : http://www.vbfrance.com/code.aspx?ID=18225 Cette source liste tous les répertoires d


Nos sponsors

Sondage...

CalendriCode


Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,218 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.