iniファイルに値を書きこむ

Option Explicit

'iniファイルに書きこむ
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

'iniファイルに値を書きこむ
'
'引数:striniFileName 対象ファイル名(フルパス)
' :strSectionName セクション名
' :strKeyName キー名
' :strValue - 追加する文字列
'
' 戻値 : True - 成功
' False - 失敗
'
Public Function WriteValueToini(striniFileName As String, strSectionName As String, strKeyName As String, strValue As String) As Boolean
Dim lngRet As Long

On Error GoTo ErrorHandler
WriteValueToini = False

lngRet = WritePrivateProfileString(strSectionName, strKeyName, strValue, striniFileName)

'エラーならそのまま関数を抜ける
If lngRet = 0 Then
Exit Function
Else
'キャッシュ内の値をクリアする
lngRet = WritePrivateProfileString(vbNullString, vbNullString, vbNullString, striniFileName)
If lngRet = 0 Then
Exit Function
End If
End If

WriteValueToini = True
Exit Function
ErrorHandler:

End Function

トップページに戻る

Tips一覧に戻る