lopezatienza.com

Un ejemplo de como leer y escribir un archivo .Ini.

Tomado de esta web.

Declaraciones generales en un módulo:

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

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

Leer en "Ejemplo.Ini":

    Private Sub Form_Load()

        Dim I As Integer

        Dim Est As String

        Est = String$(50, " ")

        I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "Ejemplo.ini")

        If I > 0 Then

            MsgBox("Tu Nombre es: " & Est)

        End If

    End Sub

Escribir en "Prueba.Ini":

    Private Sub Form_Unload(ByVal Cancel As Integer)

        Dim I As Integer

        Dim Est As String

        Est = "Ejemplo - Apartado"

        I = WritePrivateProfileString("Ejemplo", "Nombre", Est, "Ejemplo.ini")

    End Sub

(Nota: si I=0 quiere decir que no existe Información en la línea de fichero Ini a la

que hacemos referencia. El fichero "Ejemplo.Ini" se creará automáticamente).

Autor: Antonio Lopez Atienza