so gehts

[Marco Eder]

Da mir niemand helfen konnte oder wollte, schreibe ich jetzt mal hin, wie ich es gelöst habe (Falls es jemand interessiert, oder das gleiche Problem hat)

Option explicit
Dim strText
Dim strFilepath

strText = "hallo hallo"
strFilepath = "C:\textfile.txt"

If WriteToFile(strText, strFilepath) Then
    MsgBox "Der Text wurde erfolgreich in ein neues Textfile geschrieben!"
Else
    MsgBox "Der Text konnte nicht in ein Textfile geschrieben werden!"
End If

Private Function WriteToFile(ByVal strText, ByVal strFilepath)
    Dim objFSO
    Dim objFile

WriteToFile = False

Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strFilepath) Then
     MsgBox "Es existiert schon ein Textfile mit dem geleichen Namen in diesem Ordner!"
    Else
        On Error Resume Next
 Set objFile = objFSO.CreateTextFile(strFilepath, 2)
        If Err.Number <> 0 Then
     MsgBox "Ein Fehler mit der Nummer " & Err.Number & " ist aufgetreten!"
    Else
            objFile.WriteLine (strText)
            objFile.Close
     set objFile = Nothing
     WriteToFile = True
        End If
    End If
    set objFSO = Nothing

End Function