Code : Tout sélectionner
new$="un fichier"
If new$
If ReadFile(0, new$)
length = Lof(0) ; Lit la taille en octets du fichier
Debug length
*MemoryID = AllocateMemory(length) ; alloue un bloc mémoire de la taille du fichier
If *MemoryID
bytes = ReadData(0, *MemoryID, length) ; Lit les données du fichier et les place dans le bloc mémoire
Debug "Nombre d'octets lus: " + Str(bytes)
EndIf
CloseFile(0)
EndIf
EndIf