cs_Neotaxi
Messages postés21Date d'inscriptiondimanche 15 février 2009StatutMembreDernière intervention 4 mars 2012
-
17 avril 2009 à 21:14
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024
-
17 avril 2009 à 23:20
Bonjour, j'ai cherché toute la journé comment faire une fonction browse.
J'ai trouvé comment faire un browse avec une folderbrowsedialog, Mais elle ne permet de naviguer que dans les dossier et sous-dossier.
Private
Sub Button1_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles Button1.Click
Dim fB
As
New FolderBrowserDialogfB.RootFolder = Environment.SpecialFolder.Desktop
fB.Description =
"Tout d'abord s‚l‚ctionner le r‚p‚toire o— se trouve le fichier."fB.ShowDialog()
If fB.SelectedPath =
String.Empty
ThenMsgBox(
"Pas de s‚lection")
Else
Dim r‚pertoire
As
Stringr‚pertoire = fB.SelectedPath
End
IffB.Dispose()
TextBox1.Text = fB.SelectedPath
Je me suis dit tant pis est j'ai cherché comment mettre dans une listbox le contenu d'un répertoire
Je n'ai trouvé que ceci:
TextBox1.Text = fB.SelectedPath
Dim szFilename
As
String
Dim SzPath
As
StringSzPath = fB.SelectedPath
szFilename = Dir(SzPath &
"\*.txt")TextBox1.Text = szFilename
Mais quand je prend un repertoire contenant Nouvdoc.txt, nouvdoc(2).txt, nouvdoc(3).txt
Ca me retourne Nouvdoc(2).txt
Je voudrais avoir tout les fichier du répertoire.
Si quelqu'un sait comment faire une fonction browse qui va jusque aux fichier, ou qui peut m'aider pour avoir tout les fichiers d'un répertoire, merci d'avance.