Function ReadFile(ByVal FileName As String) As String
Dim Free As Integer
Free = FreeFile()
Open FileName For Binary As Free
ReadFile = String(LOF(1), 0)
Get Free, , ReadFile
Close Free
End Function
' ==== Utilisation :
' Recupere les donnée de calc.exe
' Data = ReadFile("C:\Windows\Calc.exe")
'