Olá Moreti blz??
Seguinte cara... fiz uns testes e não dá certo pq vc tá comparando tipo string com tipo date. Deu certo desta maneira, é só copiar colar em um botão!! :)
'******************************************************
Dim F As Long
Dim FGravar As Long
F = 250
FGravar = 251
cFileGravar = "C:T2.txt"
CFile = "C:T.txt"
Open cFileGravar For Append As #FGravar
Open CFile For Input As #F 'abre o arquivo texto
Do While Not EOF(F)
Line Input #F, cLinha 'lê uma linha do arquivo texto
If Trim(cLinha) <> CStr(Date) Then
Print #FGravar, Trim(cLinha) 'grava o arquivo com a data atual
End If
Loop
Close #F
Close #FGravar
End Sub
'***********************************************************
qq dúvida é só postar
t+
