Private Sub GetFiles(ByVal path As String)
        If IO.Directory.Exists(path) Then
            Dim glist As New List(Of String)
            xlslist.Clear() : ListBox1.Items.Clear()
            pdflist.Clear() : ListBox2.Items.Clear()
            restlist.Clear() : ListBox3.Items.Clear()
            glist.AddRange(IO.Directory.GetFiles(path, "*.*", _
              IO.SearchOption.AllDirectories))
            For Each s As String In glist
                Select Case IO.Path.GetExtension(s)
                    Case ".xls" : xlslist.Add(s) : ListBox1.Items.Add( _
                      IO.Path.GetFileName(s))
                    Case ".pdf" : pdflist.Add(s) : ListBox2.Items.Add( _
                    IO.Path.GetFileName(s))
                    Case Else : restlist.Add(s) : ListBox3.Items.Add( _
                      IO.Path.GetDirectoryName(s) & "\" & _
                    IO.Path.GetFileName(s))
                End Select
            Next
        End If
    End Sub