Try
            If Not Directory.Exists(Zielpfad) Then
                Directory.CreateDirectory(Zielpfad)
            End If
            If Not File.Exists("d:\!test\report.txt") Then
                File.Create("d:\!test\report.txt")
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try