CreateFile()

Syntax

Ergebnis = CreateFile(#Datei, DateiName$)

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

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

Ist 'Ergebnis' ungleich 0, konnte die Datei angelegt werden, andernfalls ist die Erstellung fehlgeschlagen. Das Ergebnis 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.

Beispiel:

  If CreateFile(0, "Text.txt")         ; wir erstellen eine neue Textdatei...
    For a=1 To 10
      WriteStringN(0, "Line "+Str(a))  ; wir schreiben 10 Zeilen (jede mit einem Zeilenumbruch)
    Next
    For a=1 To 10
      WriteString(0, "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

Alle