Discussion :

[mtq]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ...

Merci

[mtq]

en passant ds un listbox j'obtient cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cacalex]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mtq]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[cacalex]

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

[mtq]

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

[cacalex]

pense à "Résolu"

[mtq]

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

[cacalex]

C pas plus compliqué que le reste :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mtq]

thx
pour ceux qui voudrait savoir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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