RE:Ficheros ini con win 98
No pones la rutina que te da el error asi que es dificil decir el porqué.
Las funciones leeini funcionan perfectamente en windows 95 y 98
Como no pones si el ini esta en el directorio windows o no te pongo las funciones.
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) 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
'obtener el directorio windows
Sub dir_win()
Dim lpBuffer As String
Dim nSize As Integer
lpBuffer = Space$(250)
nSize = Len(lpBuffer)
X% = GetWindowsDirectory(lpBuffer, nSize)
If X% = 0 Then sax = MsgBox("No se puede encontrar el directorio Windows", 16, "Atención"): End
directorio_win = Left$(lpBuffer, X%)
End Sub
'leeini
Function leeini(lpApplicationName As String, lpKeyName As String, lpDefault As String, lpFileName As String) As String
Dim lpReturnedString As String
lpReturnedString = Space$(250)
nSize = Len(lpReturnedString)
lpFileName = directorio_win + "\" + lpFileName
X% = GetPrivateProfileString(lpApplicationName, lpKeyName, lpDefault, lpReturnedString, nSize, lpFileName)
If X% > 0 Then leeini = Left$(lpReturnedString, X%) Else leeini_letra = lpDefault
End Function