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

Résolu
cs_MagDix
Messages postés
532
Date d'inscription
lundi 5 juin 2006
Statut
Membre
Dernière intervention
6 octobre 2012
- 29 mai 2008 à 16:39
cs_Gammacronosios
Messages postés
49
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
23 février 2010
- 30 mai 2008 à 21:12
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


 

5 réponses

cs_fauve
Messages postés
661
Date d'inscription
vendredi 2 décembre 2005
Statut
Membre
Dernière intervention
23 mars 2011
8
29 mai 2008 à 17:17
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
3
Kevin.Ory
Messages postés
840
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
7 janvier 2009
11
29 mai 2008 à 17:53
Salut,

Autrement dis, les liste toute faitre de VB6 n'existent plus

Par contre il y a les OpenFileDialig, SaveFileDialog et FolderBrowserDialog....
3
cs_Gammacronosios
Messages postés
49
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
23 février 2010

30 mai 2008 à 09:20
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
0
Kevin.Ory
Messages postés
840
Date d'inscription
mercredi 22 octobre 2003
Statut
Membre
Dernière intervention
7 janvier 2009
11
30 mai 2008 à 20:44
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
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
cs_Gammacronosios
Messages postés
49
Date d'inscription
lundi 25 octobre 2004
Statut
Membre
Dernière intervention
23 février 2010

30 mai 2008 à 21:12
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
0