dcsimg
Results 1 to 3 of 3

Thread: Binary EOF

  1. #1

    Thread Starter
    Fanatic Member VBKNIGHT's Avatar
    Join Date
    Oct 2000
    Location
    Port25
    Posts
    619
    why does this code doesnt work when opening in binary?

    open myfile for binary as 1
    do until eof(1) <---this does not work 'if i using input it work well
    get #1,mybuffer
    loop
    close 1

    If a post has helped you then Please Rate it!

  2. #2
    Member WEiRd0's Avatar
    Join Date
    Dec 2000
    Posts
    49
    howdy, try this

    Code:
    Open MyFile For Binary As #1
    'loop until it gets to the end of the file
    'lof = Length of File
    For x = 1 To LOF(1)
    Get #1, , mybuffer
    Next x
    Close 1
    hope it helps
    TIMMY

  3. #3
    Guest
    Use this code:

    Code:
    'from kedaman
    
    Dim buffer as string
    Open File for binary as #1
       buffer=space(lof(1))
       Get#1,,buffer
    close #1
    Text1=buffer

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Featured


Click Here to Expand Forum to Full Width