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