Få info fra en ini fil

Her er deklarationerne for at bruge ini filer, put dem i et bas modul

'Declaretion for writing to an .ini file

Public Declare Function WritePrivateProfileString _
Lib "kernel32" Alias "WritePrivateProfileStringA" _
(ByVal lpApplicationname As String, ByVal _
lpKeyName As Any, ByVal lsString As Any, _
ByVal lplFilename As String) As Long

'Declaretion for read from an .ini file

Public 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

'variables for reading and writing .ini files
'They are dimensioned here becaus then the module
'can be freely moved to other programs

Global lngResult As Long
Global strFileName
Global strResult As String * 50

For at læse fra den er det følgende:

'Read option setup from .ini file

strFileName = App.Path & "\setup.ini"
lngResult = GetPrivateProfileString("MAIN", _
"URL", strFileName, strResult, Len(strResult), _
strFileName)

'If value = 0 reports an error

If lngResult = 0 Then
Call MsgBox("An error has occurred", _
vbExclamation)
Else
din kode
End IF

Håber det hjælper lidt :)

Når jeg prøver at køre det laver den en fejl i den her linie

strFileName = App.Path & "\Project1.ini"   
App kalder den en "invalid outside procedure"!?

strFileName = App.Path & "\setup.ini" som jeg skriver skal være -->
strFileName = App.Path & "\Project1.ini"

Hvis det var et spørgsmål så, ja.
Hvis ikke, så ved jeg ikke hvad du mener.

Det var en oplysning :)

Jeg skrev setup.ini fordi det hedder den i min app, og jeg kunne ikke se hvad den hed i din......

Hvilke referencer har du ?

Hvis det er kan du maile mig projektet og så skal jeg prøve at rette det til ?

Det regnede jeg også med :)

Betyder det noget at jeg har flere moduler?

Kan jeg sagtens. Drop din mail :)

tubber@krog-frandsen.dk

Smid et svar så du kan få nogle points :)

Jammen det er her :)

Kan du sige...svar..? :)

Sorry :)

SVAR!