XProfan

Name und Pfad der Log-Datei bestimmen
declare ExeName$,  ExePathName$, SplitZaehler%, LOGName$, Parameter$, LogDatei&
declare wert%
parameter$=@PAR$(0)
parameter$=SubStr$(parameter$, -1, \)

if parameter$ = profan.exe

    ExeName$ = @PAR$(1)

elseif  parameter$ = prfrun32.exe

    ExeName$ = @PAR$(1)

else

    ExeName$ = @PAR$(0)

endif

SplitZaehler% = @len(SubStr$(ExeName$, -1, \))
ExePathName$ = @left$(ExeName$,(@len(ExeName$)-SplitZaehler%))
LOGName$ = ExePathName$+Testprog.log
@Set(FileMode,2)
@MessageBox(LOGName$,Datei mit Pfad ,16)
Assign #1, LOGName$
wert%=%IoResult
Case wert%:@MessageBox(Kann Datei nicht anlegen!+@str$(wert%)+!,Fehler: ,16)
append #1
wert%=%IoResult
Case wert%:@MessageBox(Kann Datei nicht öffnen!+@str$(wert%)+!,Fehler: ,16)
print #1,dies ist meine Log-Datei
wert%=%IoResult
Case wert%:@MessageBox(Kann Datei nicht schreiben!+@str$(wert%)+!,Fehler: ,16)
close #1
wert%=%IoResult
Case wert%:@MessageBox(Kann Datei nicht schliessen!+@str$(wert%)+!,Fehler: ,)

assign #1,Test.Datei
rewrite #1
close #1re>

proc OpenFile

    Parameters f$,n%
    declare h%
    h%=Assign(f$)

    if FileExists(f$)

        Append h%

    else

        ReWrite h%

    endif

    Return h%

ENDPROC