Dim sFiles(-1) As String
 
        For Each sItem As String In ListBox2.Items
            sFiles = IO.Directory.GetFiles(sItem, "*.*")
            For Each sFile As String In sFiles
                ListBox3.Items.Add(sFile)
            Next
 
            sFiles = Nothing
 
        Next