« [INI] INIファイル（初期化ファイル）の中身 | メイン | [INI|VB6.0] INIファイル（初期化ファイル）の呼び出し方 »

2005年07月30日

[INI|VB6.0] INIファイル（初期化ファイル）の書き込み方

'■モジュール（basIniFile.bas）


Option Explicit



Private 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



Private Const FileName As String = "SampleTable.ini"

Private iniName As String

Private iniSection As String

Private iniKey As String

Private L As Boolean



Private NewDB As String





Public Sub SaveIniFile()



　　iniName = App.Path & "\" & FileName

　　iniSection = "ORACLE"   'iniファイル セクション

　　iniKey = "OraDatabase"  'iniファイル キー

    

　　L = WritePrivateProfileString(iniSection, iniKey, NewDB, iniName)



End Sub





Public Property Let plOraDB(ByVal strDBName As String)

　　NewDB = strDBName

End Property



'■呼び出し方


basIniFile.plOraDB = "OraDB_NewName"

basIniFile.SaveIniFile

2005 / 07 / 30