VB.net TreeView 读取系统文件名

Imports System.IO
Imports System.Data
'Imports System.Data.Linq
'Imports System.Data.Linq.Mapping
Imports System.Windows.Forms

 

Public Class Form1

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
If Not TreeView1.SelectedNode Is Nothing Then
 MessageBox.Show(TreeView1.SelectedNode.Text)
End If

End Sub

Public Sub AddDirectory(ByVal strFatherPath As String, ByVal strPath As String, ByVal nodeFather As TreeNode)

  Dim iDir As IO.Directory

  Dim iDirInfo As IO.DirectoryInfo

  Dim i As Integer

  Dim node As New TreeNode

  '先添加本目录，从文件夹路径分析出文件夹名称

  node.Text = Strings.Replace(strPath, strFatherPath & "\", "", , 1)

  '为单个节点指定节点未被选中时显示的图标

  node.ImageIndex = 1

  '为单个节点指定节点被选中时显示的图标

  node.SelectedImageIndex = 2

  nodeFather.Nodes.Add(node)

  Application.DoEvents()

  Try

  Dim str() As String = IO.Directory.GetDirectories(strPath)

  '遍历该目录的子文件夹

  For i = 0 To str.GetUpperBound(0)

  AddDirectory(strPath, str(i), node)

  Next

  Catch ex As Exception

  Debug.WriteLine(ex.Message)

  End Try

  node = Nothing

  iDir = Nothing

  End Sub

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

  Dim iDir As IO.Directory

  Dim node As New TreeNode

  '先把C盘添加到树中

  TreeView1.Nodes.Clear()

  node.ImageIndex = 0

  node.Text = "PC_Code"

  node.SelectedImageIndex = -1

  TreeView1.Nodes.Add(node)

  Dim i As Integer

  '获取C:盘根目录下的文件夹

  Dim str() As String = IO.Directory.GetDirectories("F:\PC_Code")

  For i = 0 To str.GetUpperBound(0)

'调用遍历过程

AddDirectory("F:\PC_Code:", str(i), node)

  Next

  node = Nothing

  iDir = Nothing

  End Sub

    Function GetFiles(ByVal MyDir As String) As IEnumerable(Of System.IO.FileInfo)

Dim Coll As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
  Coll = My.Computer.FileSystem.GetFiles("F:\PC_Code\1")
Dim filename As String
  For Each filename In Coll
  Dim node As New TreeNode
  node.ImageIndex = 1
Dim arr As String() = filename.Split("\")

 node.Text = arr(arr.Length - 1)

  TreeView1.Nodes.Add(node)

  Next

        If (Not System.IO.Directory.Exists(MyDir)) Then
            Throw New System.IO.DirectoryNotFoundException()
        End If
        Dim MyFileNames As String()
        Dim MyFiles As List(Of System.IO.FileInfo) = New List(Of System.IO.FileInfo)()

        MyFileNames = System.IO.Directory.GetFiles(MyDir)
        For Each MyName As String In MyFileNames
            MyFiles.Add(New System.IO.FileInfo(MyName))
        Next
        Return MyFiles
    End Function

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim MyDir As String = "F:\PC_Code\1"
Dim list As List(Of String) = New List(Of String)
        Dim MyFiles = GetFiles(MyDir)

        Dim MyStartDate As DateTime = Me.dateTimePicker1.Value
        Dim MyEndDate As DateTime = Me.dateTimePicker2.Value

End Sub
End Class