Lister les disques, répertoires et fichiers..........

Question

Bonjour!

Je dois faire une boîte de dialogue où l'utilisateur doit donner le chemin du fichier qu'il veut ainsi que le nom. Pour lui faciliter la tâche j'aimerais qu'il puisse choisir le disque puis le répertoire et enfin le fichier dans des listes. 
En fait sur VB je sais que c'est faisable avec les Drive, dir et file list box mais je n'arrive pas à les trouver dans la liste des contrôles de VBA... Est-ce que c'est parce-que ça n'existe pas sous VBA ou c'est parce que je suis pas douée??? Si effectivement ça n'existe pas, quelqu'un aurait une idée de comment qu'on fait pour lister les disques puis les répertoires puis les fichiers?

Merci d'avance!!!

cs_dragon · Answer

effectivement les ocx de VBa ne contien pas c'est option par défaut, si tu as aussi Vb d'installer, tu vas les trouver sur ton ordi

cs_chti_mi · Answer

Voici une fonction vba qui correspond au comportement 
de la boite de dialogue ouvrir fichier

mais qui ne l'ouvre pas

Execute, méthode (objet FileSearch) - Exemple

Cet exemple montre comment chercher tous les fichiers dont l'extension se termine par « .doc » dans le dossier My Documents, puis comment afficher l'emplacement et le nom de chaque fichier trouvé. Les fichiers sont triés alphabétiquement par nom de fichier.

Set fs = Application.FileSearch
With fs
    .LookIn = "C:\My Documents"
    .FileName = "*.doc"
    If .Execute(SortBy:=msoSortbyFileName, _
            SortOrder:=msoSortOrderAscending) > 0 Then
        MsgBox "There were " & .FoundFiles.Count & _
            " file(s) found."
        For i = 1 To .FoundFiles.Count
            MsgBox .FoundFiles(i)
        Next i
    Else
        MsgBox "There were no files found."
    End If
End With

alfajac · Answer

C'est une bonne copie de l'aide microsoft ca ...

 8-) Le Negociateur

Lister les disques, répertoires et fichiers..........

3 réponses

Discussions similaires