Ler Um *.ini

[Rafael Portal]

Olá gente .... É o seguinte.. estou tentando ler um *.ini... Mas o problema é que eu quero ler somente a segunda linha para pegar as informações:

CodLote=20

Caminho=D:\Rafael\Cadastro Docs\caddocs.mdb

Eu quero ler somente a informação "Caminho", alguém sabe me dizer como se faz????? Tipo antes eu precisei ler a primeira linha mas isso é fácil:

    Dim Numero As String
    Dim Cont As Integer
    Dim Conteudo As String
    
    Open App.Path & "\CadDocs.ini" For Input As #1
        
        Line Input #1, CodLote
        
        Cont = InStr(1, CodLote, "=", vbTextCompare)
        CodLote = CInt(Mid(CodLote, Cont + 1, Len(CodLote)))

        
    Close #1

Bom agora eu preciso ler a segunda linha ... Agradeço a todos..

Oks,

Rafael Portal

[Decio]

você precisa de um loop para ler todas as linhas:

Open App.Path & "\CadDocs.ini" For Input As #1

 Do While (Not EOF(1))

     Line Input #1, CodLote
      
       Cont = InStr(1, CodLote, "=", vbTextCompare)
       CodLote = CInt(Mid(CodLote, Cont + 1, Len(CodLote)))
loop
Close #1

Desta forma vai fazer um loop enquanto EOF for falso.

Existe uma API do Windows (GetProfileString) que facilita muito a tarefa de ler arquivos .INI.