Datei erzeugen und beschreiben geht nicht

KHR, 20.04.2008 09:37: Hallo miteinander,
.
was mach ich falsch?
Statt ner Lag-Datei produziere ich/Xprofan10 nur Fehlermeldungen:

' 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:" ,16)
Wenn ich noch Haare auf dem Kopf hätte, würde ich sie mir ausraufen!!!
.

David Strutz, 20.04.2008 10:19: Ein einfaches

assign #1,"Test.Datei"
rewrite #1
close #1
sollte die "Test.Datei" mit 0 byte Grösse erzeugen. Funktioniert das bei Dir?

KHR, 20.04.2008 10:46: Hallo David
.
Ja geht,
habs grad noch mal mit rewrite in meinem Beispiel probiert und geht auch!
Muss ich die Datei zuerst mit rewrite anlegen? reicht da ein append nicht aus??
.

Jac, 20.04.2008 11:00: Nein, Append geht nur, wenn die Datei schon da ist.

proc OpenFile
   Parameters f$,n%
   declare h%
   h%=Assign(f$)
   if FileExists(f$)
      Append h%
   else
      ReWrite h%
   endif
   Return h%
endproc
Jac

Dies ist die Offlinevariante vom Thread [Datei erzeugen und beschreiben geht nicht].