VB TIP: Using INI Files

Developer.com content and product recommendations are editorially independent. We may make money when you click on links to our partners. Learn More.

You may still need to use INI files in your applications – this tip shows you how.

Option Explicit
Global inifile$

Function MakePath$(ByVal drv$, ByVal subdir$)

Do While Right$(drv$, 1) = ""
drv$ = Left$(drv$, Len(drv$) - 1)
Loop

Do While Left$(subdir$, 1) = ""
subdir$ = Mid$(subdir, 2)
Loop

MakePath$ = drv$ + "" + subdir$

End Function

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

Declare Function GetPrivateProfileString _
      Lib "kernel32" _
Alias "GetPrivateProfileStringA" ( _
         ByVal lpApplicationName As String, _
         ByVal lpKeyName As Any, _
         ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
      ByVal nSize As Long, ByVal _
lpFileName As String) As Long

Private Sub cmdWrite_Click()
rslt = WritePrivateProfileString("Main", _
                       "Hello", _
                       Format$(Check1.Value), _
                       inifile$)
End Sub

Private Sub Form_Load()
inifile$ = MakePath$(App.Path, App.EXEName + ".INI")
End Sub