Yo tengo en un fichero INI la direccion de la base de
datos (c:\directorio\archivo.mdb). Lo que quisiera saber
es como en un archivo ini puedo tener varias direcciones
de varias bases de datos. Ej:
[comercial] 'base de datos comercial
c:\directorio\archivo.mdb
[tecnico] 'base de datos tecnico
d:\directorio\archivo.mdb
Yo en la actualidad lohago de la siguiente manera, lo que
pasa que en el fichero ini solo tengo la ruta de la base
de datos.
Option explicit
Private objfile As Scripting.FileSystemObject
Private objtext As Scripting.TextStream
Private Sub Form_Load()
dim donde as string 'declaro una variable
Set Objfile = CreateObject("Scripting.FileSystemObject")
If Not IsEmpty(objtext) then
Set txtObjtext = objfile.opentextfile (App.Path
& "\fichero.ini")
donde = objtext.readline
objtext.close
end if
pero con esto yo solo leo una linea, por eso pido ayuda
para saber como puedo leer de un fichero ini mas de una
linea y leer la linea que yo quiero.
RESPONDE VIGON
===============
[Adjunta modulo]
Podrķas hacer:
modINI.RutaArchivoINI = App.Path & "\TuAplicacion.ini"
MsgBox modINI.strLeerClaveString("Comercial", "RutaBD")
               (
geocities.com/es/ensolva/Descargas)                   (
geocities.com/es/ensolva)                   (
geocities.com/es)