Comparação Em 2 Arquivos Txt

[bitoinfo]

alguém pode olhar este script e me dizer porque da este erro?

erro: file already open

na linha em negrito

Private Sub contas_pg()

Dim n, m As String

Dim linha(7) As String

Dim i, j As Integer

n = FreeFile()

m = FreeFile()

i = 1

Open "f:\controle de contas\dados.txt" For Input As #n

Do While Not EOF(n)

For j = 0 To 7

Line Input #n, linha(j)

Next

If linha(1) = "P" Then

i = i + 1

Open "f:\controle de contas\contas_pagas.txt" For Output As #m

For j = 0 To 7

Print #m, linha(j)

Next

End If

Loop

Close #m

Close #n

soma

End Sub

[Graymalkin]

O problema está em...

n = FreeFile()
m = FreeFile()

... que atribui o mesmo valor para "n" e para "m". O correto seria fazer...

n = FreeFile()
Open "f:\controle de contas\dados.txt" For Input As #n
m = FreeFile()

... daí "n" e "m" teriam valores diferentes (uma vez que o número de arquivo utilizado em "n" já estaria aberto de verdade).

Certo?

Graymalkin

[ramon]

Exatamente