Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
FolderBrowserDialog1.ShowDialog()
For Each item As String In My.Computer.FileSystem.GetFiles(FolderBrowserDialog1.SelectedPath, FileIO.SearchOption.SearchTopLevelOnly) // ไม่ครบครับ
Icons.Images.Add(Drawing.Icon.ExtractAssociatedIcon(item))
ListView1.Items.Add(My.Computer.FileSystem.GetName(item), Icons.Images.Count - 1)
ListBox1.Items.Add(item)
Next
Catch ex As Exception
End Try
End Sub
Private Sub ListView1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListView1.SelectedIndexChanged // ไม่ครบครับ
ListBox1.SelectedIndex = ListView1.SelectedIndices(0)
Dim selecteditem As String = ListBox1.SelectedItem
Process.Start(selecteditem)
End Sub
End Class