Vb.Net Cherche les bouton Dir - Drive et File de VB6 [Résolu]
cs_MagDix
Membre Dernière intervention
6 octobre 2012
- - Dernière réponse :
cs_Gammacronosios
Membre Dernière intervention
23 février 2010
- 30 mai 2008 à 21:12
- Messages postés
- 532
- Date d'inscription
- lundi 5 juin 2006
- Statut
- Messages postés
- 49
- Date d'inscription
- lundi 25 octobre 2004
- Statut
A voir également:
- Vb.net dir
- Dir vb.net - Meilleures réponses
- Dir vb6 - Meilleures réponses
- Visual Basic / VB.NET : Inverser les boutons de la souris - CodeS SourceS - Guide
- Visual Basic / VB.NET : Usercontrol type bouton on/off - CodeS SourceS - Guide
- [déplacé VBS -> VB.NET] Ajout des boutons ✓ - Forum - VB.NET
- Visual Basic / VB.NET : Neo modus direct connect client code source en vb6 (p2p) - CodeS SourceS - Guide
- Visual Basic / VB.NET : Lancer une application synchrone sans utiliser shell en vb6 - CodeS SourceS - Guide
5 réponses
Meilleure réponse
- Messages postés
- 661
- Date d'inscription
- vendredi 2 décembre 2005
- Statut
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
--------------------------------------------------------------------------------------
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
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
138 internautes nous ont dit merci ce mois-ci
- Messages postés
- 843
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
Salut,
Autrement dis, les liste toute faitre de VB6 n'existent plus
Par contre il y a les OpenFileDialig, SaveFileDialog et FolderBrowserDialog....
Autrement dis, les liste toute faitre de VB6 n'existent plus
Par contre il y a les OpenFileDialig, SaveFileDialog et FolderBrowserDialog....
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
138 internautes nous ont dit merci ce mois-ci
- Messages postés
- 49
- Date d'inscription
- lundi 25 octobre 2004
- Statut
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
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
- Messages postés
- 843
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
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
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
- Messages postés
- 49
- Date d'inscription
- lundi 25 octobre 2004
- Statut
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
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
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.