Dim QuellPfad As String = "h:\!test"
   Dim Zielpfad As String = "d:\!test"
   Dim Datei As String = "report.txt"
 
   If Not IO.Directory.Exists(Zielpfad) Then
      IO.Directory.CreateDirectory(Zielpfad)
   End If
 
   If Not IO.File.Exists(IO.Path.Combine(Zielpfad, Datei)) Then
      IO.File.Create(IO.Path.Combine(Zielpfad, Datei))
   End If