'Auszüge
                    Dim DInfo As New DirectoryInfo(PrentPath)
                    DInfo.Attributes = FileAttributes.Normal
---
                        Directory.CreateDirectory(Pfad)
---
System.IO.File.Copy(ServerPfad_CU_Aufgaben & "\" & sFileName, _
  LokalerPfad_CU_Aufgaben & "\" & sFileName, True)