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