一个简单打开D盘所有文件夹和文件的例子以及动态创建双击事件



一个简单打开D盘所有文件夹和文件的例子以及动态创建双击事件

'一个简单打开D盘所有文件夹和文件的例子以及动态创建双击事件,资料http://msdn.microsoft.com/zh-cn/library/ms171645(v=vs.90).aspx
    Dim ListView1 As New ListView
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddHandler ListView1.DoubleClick, AddressOf ListView1_DoubleClick
        ListView1.Parent = Me
        ListView1.Size = New Size(200, 200)
        BL(".")
    End Sub
    Private Sub BL(ByVal Subject As String)
        Dim nodeDirInfo As New DirectoryInfo("d:\")
        Dim subItems() As ListViewItem.ListViewSubItem
        Dim item As ListViewItem = Nothing
        Dim dir As DirectoryInfo
        For Each dir In nodeDirInfo.GetDirectories()
            item = New ListViewItem(dir.Name, 0)
            subItems = New ListViewItem.ListViewSubItem() _
                {New ListViewItem.ListViewSubItem(item, "Directory"), _
                New ListViewItem.ListViewSubItem(item, _
                dir.LastAccessTime.ToShortDateString())}


            item.SubItems.AddRange(subItems)
            ListView1.Items.Add(item)
        Next dir
        Dim file As FileInfo
        For Each file In nodeDirInfo.GetFiles()
            item = New ListViewItem(file.Name, 1)
            subItems = New ListViewItem.ListViewSubItem() _
                {New ListViewItem.ListViewSubItem(item, "File"), _
                New ListViewItem.ListViewSubItem(item, _
                file.LastAccessTime.ToShortDateString())}
            item.SubItems.AddRange(subItems)
            ListView1.Items.Add(item)
        Next file
    End Sub
    Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs)
        Dim Url As String = ListView1.SelectedItems.Item(0).Tag
        Dim HE As Boolean = IO.Path.HasExtension(Url)
        If HE Then
            Process.Start(Url)
        Else
            BL(Url)
        End If
    End Sub