lectura de archivo.ini

[after]

hola q mas tengo el siguente codigo para leer y escribir archivos ini

'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(Cancel As Integer)
Dim I As Integer
Dim Est As String
Est = "Ejemplo - Apartado"
I = WritePrivateProfileString("Ejemplo", "Nombre", Est, "Ejemplo.ini")
End Sub

todo bn pero mi pregunta es donde guarda ese "ejemplo.ini"??

[David]

Iniciado por after

hola q mas tengo el siguente codigo para leer y escribir archivos ini



todo bn pero mi pregunta es donde guarda ese "ejemplo.ini"??

Precisamente no sé donde se guarda... Pero puedes indicarle donde quieres que se guarde el archivo *.ini

[after]

asi ? I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "C:/Ejemplo.ini")

[David]

Iniciado por after

asi ? I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), "C:/Ejemplo.ini")

Casi solo la barra está mal: tienes que colocar "\" en vez de "/"

[onlykfk]

En la mayoria de aplicaciones que he visto y que incluyen un archivo .ini, por lo general lo guardan en la misma carpeta donde recide la misma aplicacion

De esta manera utilizas la propiedad Path del objeto App

por ejemplo:
I = GetPrivateProfileString("Ejemplo", "Nombre", "", Est, Len(Est), App.Path & "\Ejemplo.ini")

Saludos