Visual Basic - Como tomar una variable de un archivo de texto.ini

Hola a todos....

¿¿Alquien sabe como tomar valores para varibles, que esten guardadas en un archivo de texto, tal vez con extensión .ini ??

Por ejemplo para guardar en ese archivo, variables que puedan tomar distintos parametros, conforme pasa el tiempo, y que con solo modificar el archivo de texto tome el nuevo valor.

De antemano gracias.

en la pagina del guille

http://www.elguille.info/vb/VB_TIP2.HTM#vb2_005

hay un articulo bastante bueno al respecto

espero que te sirva.

Private 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

Dim sValor As String, sPath As String, sUsuarioRed As String
Dim iCaract As Integer, iCara As Integer, iUsuario As Long
On Error GoTo ManejadoErrores
Set cnConexion = New ADODB.Connection
Set cnxDBF = New ADODB.Connection
'Para leer en el fichero Ini si esta configurado para trabajar en Red, de ser asi
'el camino donde se localizara la base de datos
bUsuario = False
sValor = Space(255)
sPath = Space(255)
sUsuarioRed = Space(255)
iUsuario = GetPrivateProfileString("Configuracion", "Usuario", "Defecto", sUsuarioRed, 255, App.Path & "facturacion.ini")
If Left$(sUsuarioRed, iUsuario) = ".T." Then
'Si es multiusuarios
bUsuario = True
Else
bUsuario = False
End If
iCaract = GetPrivateProfileString("Configuracion", "Red", "Defecto", sValor, 255, App.Path & "facturacion.ini")
'Si esta trabajando en red
If Left$(sValor, iCaract) = ".T." Then
iCara = GetPrivateProfileString("Configuracion", "Camino", "Defecto", sPath, 255, App.Path & "facturacion.ini")
sCamino = Left$(sPath, iCara)
Else
sCamino = App.Path & ""
End If
Y este seria el fichero INI
[Configuracion]
Red=.F.
Camino=\maquinacarpeta
Usuario=.F.