|
 |
 |
 |
| |
Ecrire dans un fichier INI 
Paramètres en entrée : Fichier (chaîne),Entete (chaîne),Section (chaîne),Valeur (chaîne)
Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As Any, ByVal lsString As Any, ByVal lplFilename As String) As Long
Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationname As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Function EcrireDansINI(Fichier As String, Entete As String, Section As String, Valeur As String)
'Retourne :
'une boite de message s'il y a une erreur
'le message "Ecriture dans le fichier INI réussie" si tout va bien
Dim lpAppName As String, lpFileName As String, lpKeyName As String, lpString As String
Dim U As Long
lpAppName = Entete
lpKeyName = Section
lpString = Valeur
lpFileName = Fichier
U = WritePrivateProfileString(lpAppName, lpKeyName, lpString, lpFileName)
If U = 0 Then
MsgBox "Erreur d'écriture dans le fichier INI", vbCritical
Else
EcrireDansINI = "Ecriture dans le fichier INI réussie"
End If
End Function
|
|
 |
|
 |
|
IDDN Certification
