Dim files() As String = IO.Directory.GetFiles("\\NLW\freigabe", "*.*")
 
Dim filelist As ObjectModel.ReadOnlyCollection(Of String) = _
My.Computer.FileSystem.GetFiles _
("\\NLW\\freigabe", FileIO.SearchOption.SearchTopLevelOnly, "*.*")