text files

[Spumbu1977]

Hi all ,
first of Merry Christmas to you all and i hope all your wishes come true

i have a problem with the code below, it was designed to compaare two text files and then write the differences in another text file
it all works but then gives me an error in my 'ComparTextFiles Sub' on the line 'Current.Value = Current.Value + Len(CurrentLine)' and i have no idea why please could someone share there ideas or opinions of this code

listed below is the code i use including the code i use to call this sub

Private Sub Command1_Click()
CompareTextFiles "" & Text1 & "", "" & Text2 & "", "" & Text3 & ""
End Sub

Private Sub CompareTextFiles(Fileone As String, Filetwo As String, Output As String)
Open Fileone For Input As #1
Fileonelen = LOF(1)
FileoneRead = Input(Fileonelen, #1)
Close #1
Open Filetwo For Input As #2
Open Output For Output As #3
Do While Not EOF(2)
Line Input #2, CurrentLine
Current.Value = Current.Value + Len(CurrentLine)
If InStr(1, UCase(FileoneRead), UCase(CurrentLine)) Then
MsgBox "No Differences Were Found", 0, "EMIS PCC"
Else
'difference found, write it to the output file
Print #3, CurrentLine
MsgBox "Some Differences Were Found, Please Refer To Outputed File For More Information", 0, "EMIS PCC"

End If
Loop

Close #2
Close #3

End Sub


many thanks for all your help, always greatly appreciated
Merry Christmas
Rob

[Steve Grant]

Because you have not shown any Variable Dimensioning, the obvious answer is in the 'Current.Value' which I would guess should be 'CurrentValue'.

There are other things within the code which do not make sense unless they are dimensioned elsewhere.

Merry Christmas to you as well.

Steve.

[Phil Weber]

Rob: What is the error message?

[Spumbu1977]

Merry christmas mate

the actual error message is Run Time error 424 Object required it then highlights the following line of my code

'Current.Value = Current.Value + Len(CurrentLine)'

thanks in advance