per lavorare sui file ini usa queste funzioni
codice:
Public 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
Public 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
Public Function ReadStringIni(ByVal sSection As String, ByVal sKeyName As String, ByVal sFileName As String) As String
' Legge una stringa da un file *.INI
' Input: sSection sezione
' sKeyName parola chiave
' sFileName file *.INI
' Output: stringa letta oppure "" se fallita lettura
'
Dim nResult As Integer
Dim sDefault As String
Dim sReturnedString As String
Dim nSize As Integer
On Error GoTo ReadStringIniError
sDefault = ""
sReturnedString = SPACE$(255)
nSize = 255
nResult = GetPrivateProfileString(sSection, sKeyName, sDefault, sReturnedString, nSize, sFileName)
If nResult <> 0 Then
ReadStringIni = Left$(sReturnedString, nResult)
Else
'errore
ReadStringIni = ""
End If
Exit Function
ReadStringIniError:
ReadStringIni = ""
End Function
Public Function WriteStringIni(ByVal sSection As String, ByVal sKeyName As String, ByVal sString As String, ByVal sFileName As String) As Integer
' Scrive una stringa in un file *.INI
' Input: sSection sezione
' sKeyName parola chiave
' sString stringa da scrivere
' sFileName file *.INI
' Output: False: fail; True: Ok
Dim nResult As Integer
On Error GoTo WriteStringIniError
nResult = WritePrivateProfileString(sSection, ByVal sKeyName, ByVal sString, sFileName)
If nResult = 0 Then
WriteStringIni = False
Else
WriteStringIni = True
End If
Exit Function
WriteStringIniError:
WriteStringIni = False
End Function