]   Dim GETWORD
    Dim GETLINE
    Dim ARRAYNUMBER As Integer
    Dim itmx As ListItem
    
 
    nFileNum = FreeFile
    Open "C:\Documents and Settings\Reece\My Documents\I.T\Visual Basic\Reece\client.db" For Input As nFileNum
    If Input(LOF(nFileNum), nFileNum) > "0" Then
        GETLINE = Input(LOF(nFileNum), nFileNum)
        GETLINE = Split(GETLINE, "*")
        
    Do While GETLINE(ARRAYNUMBER)
        GETWORD = Split(GETLINE(ARRAYNUMBER), "|")
        Set itmx = lvwdbase.ListItems.Add(, , GETWORD(0))
        itmx.SubItems(1) = GETWORD(1)
        itmx.SubItems(2) = GETWORD(2)
        itmx.SubItems(3) = GETWORD(3)
        itmx.SubItems(4) = GETWORD(4)
        ARRAYNUMBER = ARRAYNUMBER + 1
    Loop
    Close nFileNum
    End If

Any Idea why itd be sayin input past end of file?

client.db has
Courtney Osborne|Reece Alexander|650|$82,722|Edit/View*
Diane Alexander|Raymond Alexander|340|$22,021|Edit/View*

Anyone? Ima bout to slap myself over this?

The EndIf it the wrong side of the close statement.

The EndIf it the wrong side of the close statement.

Fair enough. but even so when i hit debug when the error shows up it takes me to the LOF line

Are You Still Having Trouble With This Or Have You Sorted It ?

We have a problem in Magictool software; when we making a any programe then this software is genrating programe number but now it is not genrating that time showing Run time error '62' - Input Past End of File.
Plz gude

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.