XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Datei: Eine ggf. große Datei anlegen
PRFellow-Vorlage
Autor: Thomas Hölzer
Eine - ggf. große - Datei anlegen
Im Beispiel wird eine 16 MB große
mit Null-Bytes gefüllte Datei angelegt.
Da der Clear-Befehl erst ab Profan 6.5 richtig
funktioniert, wurde FillMemory benutzt.
Das hat den zusätzlichen Vorteil, daß der Wert
des Füll-Byte vorgegeben werden kann.
Parameter: 1: Dateiname; 2: Dateigröße; 3: Füll-Byte (0..255)
Achtung: Es findet keine Fehlerbehandlung statt!
Def FillMemory(3) !KERNEL32,RtlFillMemory
Declare filebuf#

Proc MakeFile

    Parameters fname$,size&,byte%
    Dim filebuf#,size&
    FillMemory(filebuf#,size&,byte%)
    Assign #8,fname$
    OpenRW #8
    BlockWrite #8,filebuf#,0,size&
    CloseRW #8
    Dispose filebuf#
    Return %IOResult

EndProc

Beispiel
Cls
MakeFile C:TEST.BIN,$100000