Error: Input past end of file

tinfanide · #1 06-09-2012, 08:30 AM

Code:

Sub pdf()

Const sFile As String = "C:\test\1.pdf"
Const oFile As String = "C:\test\1.log"
Dim m, n As Integer
Dim str As String

m = FreeFile()
Open sFile For Binary As m
n = FreeFile()
Open oFile For Output As n
Do While Not EOF(m)
    Line Input #m, str
    Print #n, str
Loop

''' error
''' Input past end of file
Close m
Close n

End Sub

With the above codes, I want to write the binary data into a new log file for the purpose of counting the pages of the pdf file (m).

It runs as expected but fails before closing the n file (log file).

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
error: You are attempting to save a file format that is blocked by file block setting	zatlas1	Office	8	04-28-2012 02:37 PM
Error File in Word	gleckie	Word	2	02-02-2012 07:51 AM
File Permission Error	Pianoman 74	Word	3	01-26-2012 03:56 PM
File Conversion Error	azii	Word	0	01-04-2012 04:34 AM
Runtime error 5487 - Word cannot complete the save to to file permission error	franferns	Word	0	11-25-2009 05:35 AM