CreateFile()

Syntax

Ergebnis = CreateFile(#Datei, DateiName$)

Öffnet eine leere Datei. Existierte die angegebene Datei bereits, wird diese geöffnet und durch eine leere ersetzt! Seien Sie vorsichtig!

Wenn #PB_Any als '#Datei' Parameter verwendet wird, dann wird der Identifier der neuen Datei als 'Ergebnis' zurückgegeben.

Ist 'Ergebnis' ungleich 0, konnte die Datei angelegt werden, andernfalls ist die Erstellung fehlgeschlagen. Dies muss immer getestet werden, da das Ausführen von Operationen auf nicht erstellte Dateien zu schlimmen Abstürzen führt.

Wenn die '#Datei' bereits benutzt wurde, wird die vorherige Datei automatisch geschlossen.

  If CreateFile(0,"Text.txt")       ; wir erstellen eine neue Textdatei...
    For a=1 To 10
      WriteStringN("Line "+Str(a))  ; wir schreiben 10 Zeilen (jede mit einem Zeilenumbruch)
    Next
    For a=1 To 10
      WriteString("String"+Str(a))  ; und jetzt ergänzen wir 10 weitere Strings auf der gleichen Zeilen (da kein Zeilenumbruch hinzugefügt wird)
    Next
    CloseFile(0)                    ; schließen der zuvor geöffneten Datei und damit endgültiges Abspeichern der Daten
  Else
    MessageRequester("Information","Konnte Datei nicht erstellen!")
  EndIf

Unterstützte OS

All