fb:porticula NoPaste

Info / Hilfe Liste

Übersicht / Liste Neu

Datei hochladen Suche

Quellcode suchen

Dateidownload

bla

Uploader:	ThePuppetMaster
Datum/Zeit:	03.02.2008 21:55:32

Function GetEof(V_FileID as Integer) as ULongInt

Dim X as ULongInt

Dim T as String = Space(1)

Seek V_FileID, 1

Do until EOF(V_FileID)

    X += 1

    Get #V_FileID, X, T

Loop

Return X

End Function







Dim BinName as String = Command(0)

Dim XFID as Integer

Dim XLof as ULongInt

Dim XEof as ULongInt

XFID = FreeFile

If Open(BinName For Binary as #XFID) = 0 Then



    XLof = Lof(XFID)

    XEof = GetEof(XFID)

    Print XLof

    Print XEof



    If Put(#XFID, XEof + 1, "ABCDEFG") <> 0 Then Print "Fehler beim Schreiben!"



    XLof = Lof(XFID)

    XEof = GetEof(XFID)

    Print XLof

    Print XEof



    Close #XFID

Else: Print "Konnte Binary nicht öffnen!"

End If

End

Impressum • Nutzungsbedingungen • Datenschutz

Microsoft, Windows, Windows NT, XBOX und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.