| |
|
|
| FilePutContentAppend hängt dta a Dateiinhalt a. KompilierenMarcaSeparación
nProc fpca(string fle,dta){
casenot fileExists(fle) : return fpc(fle,dta)
long hFile=createFile(fle,4,0,0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0)
case hFile==INVALID_HANDLE_VALUE or hFile==0 : return 0
long wtC=dim(4),kk
writeFile(hFile,dta,len(dta),wtC,0)
flushFileBuffers(hFile)
closeHandle(hFile)
case len(dta)==long(wtC,0) : kk=1
dispose(wtC)
return kk
}
|
|
|
| |
|
|