Dim Dir As New DirectoryInfo(My.Application.Info.DirectoryPath)
Dim Files() As FileInfo
Dim i as integer
Dim ordner_inhalt(), temp() as string
 
Files = Dir.GetFiles()
 
For i = 0 to Files.length -1
 
'Teile den Pfad
temp = split(Files(i), "\")
 
'Erweitere den Ausgabearray
Redim preserve ordner_inhalt(i)
 
'Datei reinschreiben
ordner_inhalt(i) = temp(temp.length - 1)
 
Next

ordner_inhalt(i) = temp(temp.length - 2) & "\" & temp(temp.length - 1)