HEj!

Jag har problem att läsas värden från en ini fil.

Här är min Modulkod
<code>
Private Declare Function GetPrivateProfileSection Lib "kernel32" Alias "GetPrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private 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 Declare Function WritePrivateProfileSection Lib "kernel32" Alias "WritePrivateProfileSectionA" (ByVal lpAppName As String, ByVal lpString As String, ByVal lpFileName As String) As Long
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

Public Function ReadIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String) As String
Dim RetVal As String * 255, v As Long
v = GetPrivateProfileString(Section, Key, "", RetVal, 255, FileName)
ReadIni = Left(RetVal, v)
End Function
</code>

Här är koden som skall exikvera inläsningen

<code>
Private Sub Form_Load()
Dim sSetting As String

Label1.Caption = "Aktuell sökväg: " & ReadIni("C:\KBonus.ini", "DATABAS", "DbBPath")

End Sub
</code>

och här är min ini fil
<code>
[DATABAS]
DbBPath ="C:\Kbonus.mdb"
</code>

Jag får inget felmeddelande utan jag får bara ett tomt värde tillbaka, så jag behöver lite hjälp att lösa problemet

/Tyronne

Ta hem och studera mitt exempel
Programarkivet:En kurs i IniFil hantering .ini .Där ser du hur man gör på ett gammalt beprövat sätt.

Tack Sven!

nu fungerar det

/Tyronne