Dim MyInput As String
fot = FileLen(AppPath & App.EXEName & ".exe") -10
Open AppPath & App.EXEName & ".exe" For Binary As #1
MyInput = String(10, Chr(0))
Get #1, fot, MyInput
Close #1


Varför funkar det inte... Jag får inte ut de 10 sista teckena i filen....

Du kan ju testa LOF():
<code>
Dim fot As Long
Dim FileNo As Long
Dim MyInput As String
FileNo = FreeFile()
Open App.Path & "\" & App.EXEName & ".exe" For Binary As #FileNo
fot = LOF(FileNo) - 9
MyInput = String(10, Chr(0))
Get #FileNo, fot, MyInput
Close #FileNo
</code>