Vb.Net Cherche les bouton Dir - Drive et File de VB6Résolu

Question

Bonjour...
Je cherche les boutons Dir, File et Drive de VB6 en .Net
Pour avoir la liste des répertoire, la liste des fichiers du répertoire et voir les disque rigide...


Je clique où dans les bouton pour avoir cela en Vb.Net

merci

cs_fauve · Accepted Answer

Salut,

--------------------------------------------------------------------------------------

Pour obtenir la lettre des disques installés sur l'ordinateur (disque dur, disquette, dvd-rom, clé usb, ...) :

For i As Integer = 0 To My.Computer.FileSystem.Drives.Count - 1 ' Liste tous les disques installés sur l'ordinateur
    MsgBox(My.Computer.FileSystem.Drives.Item(i).Name) ' Affiche le nom du disque
Next

--------------------------------------------------------------------------------------

Pour obtenir la liste des fichiers en incluant les sous-dossiers :

For Each Files As String In My.Computer.FileSystem.GetFiles("C:", FileIO.SearchOption.SearchAllSubDirectories)
    ' Liste tous les fichiers présent sur C:\ en incluant les sous dossiers
    MsgBox(Files) ' Affiche le chemin d'accès complet du fichier
Next

--------------------------------------------------------------------------------------

Pour obtenir la liste des fichiers en excluant les sous-dossiers :

For Each Files As String In My.Computer.FileSystem.GetFiles("C:", FileIO.SearchOption.SearchTopLevelOnly)
    ' Liste tous les fichiers présent sur C:\ en excluant les sous-dossiers
    MsgBox(Files) ' Affiche le chemin d'accès complet du fichier
Next

--------------------------------------------------------------------------------------

Pour obtenir la liste des dossiers en incluant les sous-dossiers :

For Each Folders As String In My.Computer.FileSystem.GetDirectories("C:", FileIO.SearchOption.SearchAllSubDirectories)
    ' Liste tous les dossiers présent sur C:\ en incluant les sous-dossiers
    MsgBox(Folders) ' Affiche le chemin d'accès complet du dossier
Next

--------------------------------------------------------------------------------------

Pour obtenir la liste des dossiers en excluant les sous-dossiers :

For Each Folders As String In My.Computer.FileSystem.GetDirectories("C:", FileIO.SearchOption.SearchTopLevelOnly)
    ' Liste tous les dossiers présent sur C:\ en excluant les sous-dossiers
    MsgBox(Folders) ' Affiche le chemin d'accès complet du dossier
Next

--------------------------------------------------------------------------------------

Si tu as besoin d'autres infos, n'hésites pas

++
------------------------------------
Si la réponse vous convient : Réponse Acceptée

Kevin.Ory · Answer

Salut,

Autrement dis, les liste toute faitre de VB6 n'existent plus 

Par contre il y a les OpenFileDialig, SaveFileDialog et FolderBrowserDialog....

cs_Gammacronosios · Answer

je ne suis pas d'accord avec Kevin.Ory, les FileList,DirList et DriveList existent, amis il faut les ajouter dans la boite à outils.

Click droit sur la Boite à outils->Ajouter/Supprimer des élements

Dans la fenêtre qui s'affiche, choisir l'onglet "Composants.Net Framework"
Dans la liste de cases à cocher qui s'affiche, sélectionner :
- FileListBox
- DirListBox
- DriveListBox
Ils ont tous les 3 comme espace de nom "Microsoft.VisualBasic.Compatibility.VB6"

Voila, et dans la boite à outils maintenant on a les bouttons de ces controles.
C'est un art la programmation, non

Kevin.Ory · Answer

je ne suis pas d'accord avec Kevin.Ory, les FileList,DirList et
DriveList existent, amis il faut les ajouter dans la boite à outils.


Ah oui OK, bon a savoir ça 
Mais bon, je suis pas du genre à utiliser le NameSpace Microsoft.VisualBasic.Compatibility.VB6 
Je préfère nettement utiliser le framework plutot que des fonctions de retrocompatibilité de VB, qui sont beaucoup moins performantes et qui vont certainement bientot disparaitre...

Et faire le même effet avec les classe du framework c'est vraiment pas compliqué. Voila pour afficher les fichier se trouvant dans C:\ :
ListBox1.DataSource = IO.Directory.GetFiles("C:")

Mais en plus ça permet de formater et filter l'affichage comme on veut, donc beaucoup mieux à mon gout

cs_Gammacronosios · Answer

Désolé je n'avais pas vu ça comme ça ^^
J'avais trouvé plus pratique pour MagDix d'utiliser des controles qu'il connait bien et de ne pas trop s'aventurer dans
un domaine qu'il ne connait peut-être pas (désolé je ne connais pas ton niveau MagDix)
Cependant je suis tout à fait d'accord, autant utiliser les fonctions que nous offre le framework si on est en .net

C'est un art la programmation, non

Vb.Net Cherche les bouton Dir - Drive et File de VB6

5 réponses

Votre réponse