15 lines
381 B
Plaintext
15 lines
381 B
Plaintext
Title$="Select a file"
|
|
Pattern$="Text (.txt)|*.txt|All files (*.*)|*.*"
|
|
fileName$ = OpenFileRequester(Title$,"",Pattern$,0)
|
|
If fileName$
|
|
If ReadFile(0, fileName$)
|
|
length = Lof(0)
|
|
*MemoryID = AllocateMemory(length)
|
|
If *MemoryID
|
|
bytes = ReadData(0, *MemoryID, length)
|
|
MessageRequester("Info",Str(bytes)+" was read")
|
|
EndIf
|
|
CloseFile(0)
|
|
EndIf
|
|
EndIf
|