Dim files As ReadOnlyCollection(Of String) files = My.Computer.FileSystem.GetFiles("C:/", FileIO.SearchOption.SearchTopLevelOnly, "*.*") Dim FileName(files.Count) As String Dim i As Integer For i = 0 To files.Count - 1 FileName(i) = files(i).ToString Next