with fileid.l : error message : le #file n"est pas initialisé
with fileid.i : no error.
with pb6 a3 C backend : compile in both case.
Code: Select all
Define StreamData.EDITSTREAM
Define FileID.l ,file.s
file="put here a valid file name"
FileID = ReadFile(#PB_Any, file)
If FileID
StreamData\dwCookie = FileID(FileID)
StreamData\dwError = #Null
CloseFile(FileID)
EndIf