Dim TeilPfad as string ="DCIM/Camera"
'Dim TeilPfad as string ="Pictures"
'Dim TeilPfad as string ="MyFolder"
Dim GesamtPfad as string =File.Combine(File.DirRootExternal,TeilPfad)
If File.IsDirectory(File.DirRootExternal, TeilPfad)=True Then
Dim Liste As List = File.ListFiles(GesamtPfad)