[VBNET] Resulta d'un dossier dans listview

Bonjour,

Je n'est pas reussi a trouver ds les tuto ou autre le moyen de scan un répertoire et dans mettre la liste des elements dans une listview:
Code:

1 2 3 4 5 6 Imports System.Collections.ObjectModel Sub Form1Load(sender As Object, e As System.EventArgs) Dim files As ReadOnlyCollection(Of String) files = My.Computer.FileSystem.GetFiles("MonDossier\", True, "*.txt") ListView1.Items.Add(files.Tostring) End Sub
A la compile il ne trouve pas d'erreur mais lorsque la form se load, j'ai une erreur du type: searchtype qui est pas valide ... :x

Merci :)

en passant ds un listbox j'obtient cela:
Code:

1 2 3 4 Dim i As Integer For i = 0 To My.Computer.FileSystem.Getfiles("MonDossier\").Count - 1 ListBox1.Items.Add(My.Computer.FileSystem.GetFiles("MonDossier\").Item(i)) Next i
La auccune erreur mais lorsque je veut filter les extensions ceci plante

Code:

1
2
3
4
5
6
7
 
 
 Dim i As Integer 
      For i = 0 To My.Computer.FileSystem.Getfiles("MonDossier\").Count - 1 
if System.IO.Path.GetExtension(My.Computer.FileSystem.GetFiles("MonDossier\").Item(i)) = ".txt"
      ListBox1.Items.Add(My.Computer.FileSystem.GetFiles("MonDossier\").Item(i)) 
      Next i

Code:

1
2
3
4
5
6
		Dim i As Integer
      	For i = 0 To My.Computer.FileSystem.Getfiles("Films\").Count - 1
		If System.IO.Path.GetExtension(My.Computer.FileSystem.GetFiles("Films\").Item(i)) = ".avi" Then
      	ListBox1.Items.Add(My.Computer.FileSystem.GetFiles("Films\").Item(i))
      	End If
      	Next i

thx ;)
coment integrer System.IO.Path.GetFileName pour ne recuperer que le nom du fichier et non le chemin entier ?

System.IO.Path.GetFileName ne retourne que le nom du fichier, sans son chemin complet, non ???

oui exactement :)
ceci evite d'avoir tout le chemin complet ds la listbox :)

pense à "Résolu" :)

Bien que je ne sais pas comment mettre System.IO.Path.GetFileName pour recuperer que son nom je v mettre resolu ;)
Merci de ton aide

C pas plus compliqué que le reste :
Code:

1 2 System.IO.Path.GetFileName(My.Computer.FileSystem.GetFiles("Films\").Item(i))

thx :)
pour ceux qui voudrait savoir:

Code:

1
2
3
4
5
6
		Dim i As Integer
      	For i = 0 To My.Computer.FileSystem.Getfiles("MonDossier\").Count - 1
		If System.IO.Path.GetExtension(My.Computer.FileSystem.GetFiles("MonDossier\").Item(i)) = ".MonExtension" Then
      	ListBox1.Items.Add(System.IO.Path.GetFileName(My.Computer.FileSystem.GetFiles("MonDossier\").Item(i)))
      	End If
      	Next i