Leer txt en vb6 (Error)

[buxforever]

Alguien tiene idea porque no me abre el archivo de texto...

Código vb:

Dim obj_FSO As Object
Dim Archivo As Object
Archivo = obj_FSO.OpenTextFile("C:\archivo.txt", ForReading, True)
Archivo.ReadLine (1)
If Archivo.ReadLine(1) = "Base Exportada" Then
MsgBox "La Base ha sido exporta"
End If
 

[pkj]

Prueba así:

Código vb:

Dim obj_FSO As Object
   Dim Archivo As Object
   Set obj_FSO = CreateObject("Scripting.FileSystemObject")
   Set Archivo = obj_FSO.OpenTextFile("c:\archivo.txt", 1)
  
   If Archivo.ReadLine = "Base Exportada" Then
     MsgBox "La Base ha sido exporta"
   End If
 
   Archivo.Close
   Set obj_FSO = Nothing
   Set Archivo = Nothing
 

Saludos

[buxforever]

Gracias (pkj) funciono a la perfeccion..