[Visual Basic 2010]Elencare in una listbox i file in una directory

[Gian01]

Mi servirebbe risolvere questo problema...voglio elencare in una listbox i file contenuti in una directory.
Ho provato questo ma mi da già sbagliato il codice e non so come risolvere.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = FolderBrowserDialog1.SelectedPath
            Timer1.Start()
        End If
    End Sub
    
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Timer1.Stop()
        Dim cartella As New IO.DirectoryInfo(TextBox1.Text)
        Dim file As IO.FileInfo
        Dim file_nella_cartella As IO.FileInfo
        file = cartella.GetFiles("*.txt")
        For Each file_nella_cartella In file
            ListBox1.Items.Add(file_nella_cartella.Name)
        Next
        Dim nome As String = file_nella_cartella.Name.ToString.Replace(".txt", "")
        ListBox1.Items.Add(nome)
    End Sub

potete aiutarmi??

[gibra]

Se non indichi qual'è l'errore e dove te lo da...

[Gian01]

Mi segna sbagliato:

file = cartella.GetFiles("*.txt")

e dice Impossibile convertire il valore di tipo 'Matrice a 1 dimensioni di System.IO.FileInfo' in 'System.IO.FileInfo';

For Each file_nella_cartella In file

e dice L'espressione è di tipo 'System.IO.FileInfo', che non è un tipo insieme.

[oregon]

file deve essere un vettore non un singolo elemento

file()

non

file

[Gian01]

Ho risolto e così mette anche le icone!

Public Class Form1
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Controls.Add(Me.listView1)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim dir As New System.IO.DirectoryInfo(TextBox1.Text)

        Dim item As ListViewItem
        listView1.BeginUpdate()
        Dim file As System.IO.FileInfo
        For Each file In dir.GetFiles()

            Dim iconForFile As Icon = SystemIcons.WinLogo

            item = New ListViewItem(file.Name, 1)

            If Not (imageList1.Images.ContainsKey(file.Extension)) Then

                iconForFile = System.Drawing.Icon.ExtractAssociatedIcon(file.FullName)
                imageList1.Images.Add(file.Extension, iconForFile)
            End If
            item.ImageKey = file.Extension
            listView1.Items.Add(item)

        Next file
        listView1.EndUpdate()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            TextBox1.Text = FolderBrowserDialog1.SelectedPath
        End If
    End Sub
End Class

FolderBrowserDialog1=FolderBrowserDialog
Button1=Pulsante per ricercare i file
Button2=Pulsante per inserire la directory in cui cercare
Textbox1=Textbox per la directory
imageList1=ImageList
listView1=ListView

[oregon]

Originariamente inviato da Gian01
Ho risolto e così mette anche le icone!

Basta cercare il codice pronto

http://msdn.microsoft.com/it-it/libr...tudio/ms404308(v=vs.100).aspx

[Gian01]

scusa come si fa a cercare le cose su quel sito

[oregon]

Si cerca con google ...

http://lmgtfy.com/?q=MSDN+Extract+the+Icon