Private Sub TreeView1_AfterSelect(sender As System.Object, e As _
  System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        TreeView1.SelectedNode.Tag = New IO.DirectoryInfo(e.Node.FullPath)
        Dim directory As IO.DirectoryInfo
        directory = CType(TreeView1.SelectedNode.Tag, IO.DirectoryInfo)
 
        If directory IsNot Nothing Then
            Dim files() As IO.FileInfo = directory.GetFiles
 
            ListView1.Items.Clear()
 
            For Each file As IO.FileInfo In files
                ListView1.Items.Add(file.Name)
            Next file
        End If
 
    End Sub