iniファイル読み書き

AccessVBAで外部ファイルに設定値を保存しておく方法
レジストリに保存が望ましいみたい

変数定義

'INIファイル
Public Const str_iniFilePathName As String = "D:\F_Data_Ini\1005.ini"

'INI関連
Public Type Ini
str_lpAppName As String
str_lpKeyName As String
lng_Leng As Long
str_rtString As String
rt As Long
str_iniFilename As String
str_lpDefault As String
str_lpString As String
int_IniData As Integer
str_IniData As String
End Type
Public mIni As Ini

Public str_KeyName As String
Public str_AppName As String

読み書きのモジュール

Option Compare Database
Option Explicit
Private Const str_ModuleName As String = "m_Initial"

'INIファイル読込
Public Declare Function GetPrivateProfileString Lib "kernel32" Alias _
"GetPrivateProfileStringA" _
(ByVal str_lpAppName As String, _
ByVal str_lpKeyName As String, _
ByVal str_lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal str_iniFilename As String) As Long

'INIファイル書込
Public Declare Function WritePrivateProfileString Lib "kernel32" Alias _
"WritePrivateProfileStringA" _
(ByVal lpApplicationName As String, _
ByVal str_lpKeyName As String, _
ByVal str_lpString As String, _
ByVal lpFileName As String) As Long

'--------------------------------------------------------------------
'【INIセクション名とキー名を指定で読込】20160225
'--------------------------------------------------------------------
Public Function ReadIni(str_AppName As String, str_KeyName As String)
Const str_ProcName = "ReadIni"
On Error GoTo ERR_ReadIni

With mIni
.str_lpAppName = str_AppName 'セクション名
.str_lpKeyName = str_KeyName 'キー名
.str_rtString = String(256, Chr(0)) '取得した文字列
.lng_Leng = Len(.str_rtString) 'サイズ
.str_iniFilename = str_iniFilePathName

'見つからなかった場合の規定値
.str_lpDefault = ""

.rt = GetPrivateProfileString(.str_lpAppName, .str_lpKeyName, .str_lpDefault, .str_rtString, .lng_Leng, .str_iniFilename)

'NULL除去
'InStr(開始位置, 文字列, 検索文字列, 比較モード)
'Chr(0)=NULL
If InStr(1, .str_rtString, Chr(0), vbBinaryCompare) > 0 Then
.str_rtString = Left(.str_rtString, InStr(1, .str_rtString, Chr(0), vbBinaryCompare) - 1)
End If

'Space除去
.str_IniData = Trim(.str_rtString)

End With
Exit Function

ERR_ReadIni:
MsgBox str_ModuleName & ":" & str_ProcName & ":" & Err.Number & ":" & Err.Description
End Function

'--------------------------------------------------------------------
'【INIファイル書込】　20160225
'--------------------------------------------------------------------
Public Function WriteIni(str_AppName As String, str_KeyName As String, str_String As String)
Const str_ProcName = "WriteIni"
On Error GoTo ERR_WriteIni

With mIni
.str_lpAppName = str_AppName 'セクション名
.str_lpKeyName = str_KeyName 'キー名
.str_lpString = str_String
.str_iniFilename = str_iniFilePathName
.rt = WritePrivateProfileString(.str_lpAppName, .str_lpKeyName, .str_lpString, .str_iniFilename)
End With
Exit Function