Option Compare Database
Option Explicit
'deklaracija API funkcijaza ini file
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileInt Lib "kernel32" Alias "GetPrivateProfileIntA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal nDefault As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Long

'Ucitavanje
Function GetINI(ByVal AppS As String, ByVal Kljuc As String) As String
Dim BafS As String * 256
Dim BafL As Long
BafL = GetPrivateProfileString(AppS, Kljuc, "", BafS, Len(BafS), Db_Putanja() & "\INIFile.ini")
GetINI = Left$(BafS, BafL)
End Function

'Upis
Function WriteINI(ByVal AppS As String, ByVal Kljuc As String, ByVal Vrijednost As String) As String
WritePrivateProfileString AppS, Kljuc, Vrijednost, Db_Putanja() & "\INIFile.ini"
End Function

'Proba
Function UcitajSve()
Dim a As String
'Ucitavanje
a = GetINI("Grupa2", "Podatak1")
'Zapis
MsgBox a
WriteINI "Neka Grupa", "Podatak grupe", "33"
End Function

Function Db_Putanja() As String
 '-------------------------------------------------
 'Ova funkcija pronalazi putanju postojee baze
 'Autor funkcije ZXZ
'__________________________________________________
    Dim DB As Database
    Dim Putanja As String
    
    On Error Resume Next                                     'Ako naieš na grešku nastavi
    Set DB = DBEngine(0)(0)                                  'Setovanje baze
    Putanja = DB.Name                                          'Upis putanje baze i njenog imena
    Do Until Right$(Putanja, 1) = "\"                         'Petlja za odvajanje imena baze od putanje baze
        Putanja = Left$(Putanja, Len(Putanja) - 1)
    Loop
    Putanja = Left$(Putanja, Len(Putanja) - 1)
    Db_Putanja = Putanja
    Set DB = Nothing
End Function