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