CreateObjekt + OpenTextFile

Home-›Foren-›Outlook-›Outlook VBA-›CreateObjekt + OpenTextFile

2 Antworten anzeigen - 1 bis 2 (von insgesamt 2)
  • Autor
    Beitrag
  • #28920
    Unbekannt
    Participant

      Hi,
      ich habe da ein winziges Problem.

      Ich möchte aus Outlook verschiedene Variablen in eine Textdatei schreiben.
      (das heißt unten anfügen)

      Etwa so:
      Sub OpenTextFileTest
      Const ForReading = 1, ForWriting = 2, ForAppending = 3
      Dim Testtext as String
      Dim fs, f
      Testtext = \”Na es geht nicht!\”
      Set fs = CreateObject(\”Scripting.FileSystemObject\”)
      Set f = fs.OpenTextFile(\”c:\\testfile.txt\”, ForAppending,TristateFalse)
      f.Write Testtext
      f.Close
      End Sub

      geht aber nicht. Debugg mein es sei eine Funktion nicht definiert.

      Kann mir jemand helfen?

      Gruß

      Martin

      #119747
      Unbekannt
      Participant

        Hallo,

        ersetze eine ZEile:

        Set f = fs.OpenTextFile(\”c:\\testfile.txt\”, 8, 0)

        dann klappts,

        Gruss

        rpins

      2 Antworten anzeigen - 1 bis 2 (von insgesamt 2)

      Das Thema ‘CreateObjekt + OpenTextFile’ ist für neue Antworten geschlossen.

      Hat Ihnen der Beitrag gefallen?

      1 Stern2 Sterne3 Sterne4 Sterne5 Sterne (Keine Bewertung vorhanden)
      Loading...