API-Funktion: 'GetPrivateProfileStringByKeyName'

INI-File:
[pfadvorname]
vorname=peter
rtfpath=c:\temp\
[day]
Report1=Alphabetische Artikelliste
Report2=Artikel nach Kategorie
[week]
Report1=Rechnung
Report2=Zusammenfassung der Quartalsumsätze
Report3=gugus

ausgelesen über API-Funktion: „GetPrivateProfileStringByKeyName“

Modul:
sub test_ini
Dim txt_resultfromini As String
Dim obj_readini As cls_filefun
Set obj_readini = New cls_filefun
txt_resultfromini = obj_readini.ReadFromFile(„day“, „Report1“, App.Path & „“ & „xxx.ini“)
Debug.Print „******************“
Debug.Print txt_resultfromini
Set obj_readini = Nothing

Dim txt_savetrtfpath As String
Dim obj_filefun As cls_filefun
Set obj_filefun = New cls_filefun
txt_savetrtfpath = obj_filefun.ReadFromFile(„pfadvorname“, „vorname“, App.Path & „xxx.ini“)
Debug.Print „******************“
Debug.Print txt_savetrtfpath
Set obj_filefun = Nothing
end sub

Resultat:
txt_resultfromini =Alphabetische Artikelliste
txt_savetrtfpath = „“

Warum erhalte ich beim zweiten Lesevorgang einen leeren String zurück? Danke im voraus für tips und hinweise :wink:
Grüsse Peter

Hallo Peter,

vielleicht weil beim 2. Auslesen nur

App.Path & „xxx.ini“

statt

App.Path & „“ & „xxx.ini“)

steht und die ini dann nicht gefunden wird?

Gruß

Sculpture

Asche auf mein Haupt…!! :frowning:(
Volltreffer…
und versenkt! Besten Dank. Grüsse Peter