Hello,
je souhaite pouvoir afficher la liste des fichiers textes contenus dans un répertoire et ses sous répertoires. Pour le moment j'arrive à le faire pour le répertoire principal :
Merci d'avance
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20 Dim fBrowser As New FolderBrowserDialog fBrowser.RootFolder = Environment.SpecialFolder.Desktop fBrowser.Description = "Sélectionnez un répertoire SVP" fBrowser.ShowDialog() If fBrowser.SelectedPath = String.Empty Then Label1.Text = "Pas de sélection" Else Label1.Text = fBrowser.SelectedPath End If fBrowser.Dispose() ' make a reference to a directory Dim di As New IO.DirectoryInfo(fBrowser.SelectedPath) Dim diar1 As IO.FileInfo() = di.GetFiles("*.txt") Dim dra As IO.FileInfo 'list the names of all files in the specified directory For Each dra In diar1 ListBox1.Items.Add(dra) Next
Partager