cs_EBArtSoft
Messages postés4525Date d'inscriptiondimanche 29 septembre 2002StatutModérateurDernière intervention22 avril 20199 1 sept. 2004 à 16:07
Dim Buffer() as Byte
Open "MF.EXE" For Binary Access Read as #1
if lof(1) then
Redim Buffer(Lof(1)-1)
Get #1,,Buffer
else
msgbox "Fichier vide"
endif
Close #1