Parcourir les fichier d'un lecteur (suite)

Question

Bonjour

J' ai dernierement laissé une demande de recherche d'une procédure qui me permettrai de parcourir l'arborescence d'un lecteur ou d'un dossier.

Et d'extraire le nom des divers fichiers existant.

En fait, je cherche a parcourir toute l'arborescence d'un lecteur avec tous les dossiers et les fichiers et cela automatiquement sans aucune intervention de l'utilisateur. 

Merci quant meme a tous ceux qui ont répondu.

et excuser du manque d'infos de ma part

et je renouvelle ma question

Merci

cs_CanisLupus · Answer

Salut,

Un exemple que g trouvé je ne sais plus où, ça marche avec un Form contenant une ListBox (List1) et un CommandButton (Command1). Etudie le code, tu peux définir le dossier de départ ainsi que le type de fichier que tu recherches. Maintenant, pour que ça se fasse automatiquement, il faut que tu arrives à coller l'exe dans le run de windows du PC visé. :

Option Explicit

'Voici un exemple qui utilise le FileSystemObject :

'Il faut tout d'abord sélectionner "Microsoft Scripting Runtime" dans Projet/Références...

Public oFs As FileSystemObject
Public oFolder As Folder
Public oSubFolder As Folder
Public oFile As File
Public Chemin As String

Private Sub Command1_Click()

Dim sFolder As String

'Créer le FileSystemObject
Set oFs = CreateObject("Scripting.FileSystemObject")

'Vider la listbox
List1.Clear

'Définir le répertoire de départ
sFolder = "C:"

'Rechercher les fichiers dans le répertoire de départ
Rechercher_Fichiers sFolder

'Rechercher les sous-répertoires et fichiers
Rechercher_Tout sFolder

'Afficher le nombre de fichier(s) trouvé(s)
MsgBox List1.ListCount & " fichier(s) trouvé(s) !", vbInformation

End Sub

Private Sub Rechercher_Fichiers(sFolder As String)

Set oFolder = oFs.GetFolder(sFolder)

'Parcourir les fichiers du répertoire et charger la listbox
For Each oFile In oFolder.Files
'If oFile.Type = "Raccourci" Then
  List1.AddItem sFolder & oFile.Name
'End If
Next

End Sub

Private Sub Rechercher_Tout(sFolder As String)

Dim sName As String

Set oFolder = oFs.GetFolder(sFolder)

'Parcourir les sous-répertoires du répertoire
For Each oSubFolder In oFolder.SubFolders
'Composer le nom du sous-répertoire
sName = sFolder & oSubFolder.Name & ""
'Rechercher les fichiers
Rechercher_Fichiers sName
'Rechercher les sous-répertoires et fichiers récursivement
Rechercher_Tout sName
Next

End Sub

Cordialement

CanisLupus

Parcourir les fichier d'un lecteur (suite)

1 réponse

Discussions similaires