INIファイル書き込み

INIファイルに、データを書き込むサンプルです。

' API 関数定義
Private Declare Function WritePrivateProfileString _
Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpszString As String, _
ByVal lpFileName As String) As Long

' INIファイルに、テストデータを書き込むサンプル関数
Public Sub WriteData()
Dim strFileName As String
Dim strSection As String
Dim strKey As String
Dim strData As String

strFileName = "D:\Test.ini"
strSection = "TestSection"
strKey = "TestKey"
strData = "TestData"
Call WritePrivateProfileString(
strSection, _
strKey, _
strData, _
strFileName)
End Sub

char strFileName[] = "D:\\Test.ini";
char strSection[] = "TestSection";
char strKey[] = "TestKey";
char strData[] = "TestData";

WritePrivateProfileString(strSection, strKey,
strData, strFileName);