Public Sub CriaArqTexto() On Error Resume Next Dim fFileObjectIni As FILECTLCtl.File Dim strLinhaini As String Dim strArquivo As String Set fFileObjectIni = CreateObject("FILECTL.File") ' Path de onde está localizado o arquivo texto strArquivo = "\teste\Teste.txt" 'criando o arquivo: fFileObjectIni.Open strArquivo, fsModeAppend 'inserindo dados strLinhaini = "Teste Arquivo" fFileObjectIni.LinePrint strLinhaini strLinhaini = "cont=0" fFileObjectIni.LinePrint strLinhaini strLinhaini = ""
'Fechando o arquivo fFileObjectIni.Close End Sub
Agora, depois que o arquivo ja foi criado, preciso fazer a leitura desse arquivo e verificar se CONT = 0. Como faço isso?