Problem with CreateFile_()

[infratec]

Or in PB

Code: Select all

Procedure.s GETFILETXT(Filename$)
  
  Protected File.i, Result$
  
  File =  ReadFile(#PB_Any, Filename$)
  If File
    Result$ = ReadString(File, #PB_Ascii | #PB_File_IgnoreEOL)
    CloseFile(File)
  EndIf
  
  ProcedureReturn Result$
  
EndProcedure

Debug GETFILETXT("C:\OutOfTheBox\888.txt")

Bernd