Visual Basic - Leer un *.ini

FELIZ AÑO, COLEGA, bueno, deseo saber, cual es la funcion que me permite leer un archivo *.ini, en el cual estan las rutas de mis carpetas, kiero, eso porke no kiero limitar a mi programa y hacerlo mas dinamico, osea se cambia el ini y el programa cree las carpetas con las rutas especificadas en el archivo en VB3 lo hacian asi:

SetDataAccessOption 1, st + "\CARTOLA4.ini"
Usuario = UCase$(GetINIString("NOMUSU", "250"))
IdxPat = GetINIString("IDXPAT", "250")
PathBD = GetINIString("PATHBD", "250")
PatDat = GetINIString("PATDAT", "250")
PatArc = GetINIString("PATARC", "250")
PatMue = GetINIString("PATMUE", "250")
PatLog = GetINIString("PATLOG", "250")
NombreBD = GetINIString("NOMBAS", "250")
FecDesde = GetINIString("FECDES", "250")

como puedo hacer lo mismo pero con VB6?, de ante mano gracias, y ke tengas feliz año,

Con las API's para archivos INI GetPrivateProfileString para leerlo y WritePrivateProfileString para escribirlo.

Public Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

strBuffer = String(255, " ")

WritePrivateProfileString "MiSeccion", "MiValor", "MiValor", App.Path + "\MiArchivo.ini"

GetPrivateProfileString "MiSeccion", "MiValor", "0", strBuffer,255, App.Path + "\MiArchivo.ini"

oye, asi, por saber, ke significa esto:

Declare Function OSGetPrivateProfileString% Lib "Kernel" Alias "GetPrivateProfileString" (ByVal AppName$ ........

el simbolo "$" que se repite tanto

gracias

a ke se refiere con "MiSeccion", "MiValor", "0 .... App.Path ?

Sección corresponde a las secciones de un archivo ini por ejemplo, si revisas cualquiera son las que están encerradas entre corchetes []

Valor son los valores propiamente dichos de una sección del archivo, por ejemplo:

Usuario=Prueba

Usuario es el valor. App.Path devuelve la ruta actual de la aplicación, es una propiedad del objeto App.

sabes no me resulta, en la aplicacion antigua aparece esto

tmp = String$(255, 32)
X = OSGetWindowsDirectory(tmp, 255) <--------------------
st = Mid$(tmp, 1, X)
SetDataAccessOption 1, st + "\CARTOLA4.ini"

eso ke te apunte, me sale un error, y se me cae el programa