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