[VB6]Leer y escribir archivo Ini

Topic created · 1 Mensajes · 1184 Visitas
  • Declaraciones generales del 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

    Creo que 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.