אני מקווה שאני יוכל לעזור
Public Function GetFromINI(AppName As String, KeyName As String, FileName As String) As String Dim RetStr As String RetStr = String(255, Chr$(0)) GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName$)) End Function
זה אמור לעבוד.... ותתעלם מהשטויות שגלי כתבה... בבקשה....
