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).

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