Cet exemple affiche la liste des fichiers du répertoire et du lecteur sélectionnés. Pour tester cet exemple, collez le code dans la section des déclarations d'une feuille contenant les contrôles DriveListBox, DirListBox, et FileListBox. Appuyez sur F5. Utilisez la souris pour changer de lecteur ou de répertoire.
Private Sub Drive1_Change ()
Dir1.Path = Drive1.Drive ' Définit le chemin d'accès du répertoire.
End Sub
Private Sub Dir1_Change ()
File1.Path = Dir1.Path ' Définit le chemin d'accès du fichier.
End Sub
|