INI Manipulation - Problems

I've been having problem produces a "memory xxxxxxx cannot be read" error. All the functions and variables are declared, the file and the controls exist... If it might be of any significance, this is followed by an "End" command, but it doesn't have any problems on its own. Anyway, here's the code:

VB Code:

If optAlbum1.Value = True Then
        Call WritePrivateProfileString("MW Photographer", "Album1Index", GetPrivateProfileInt("General", "Screen Shot Index", "0", CurDir() & "\Morrowind.ini"), CurDir() & "\Morrowind.ini")
    ElseIf optAlbum2.Value = True Then
        Call WritePrivateProfileString("MW Photographer", "Album2Index", (GetPrivateProfileInt("General", "Screen Shot Index", "0", CurDir() & "\Morrowind.ini") - 25), CurDir() & "\Morrowind.ini")
    ElseIf optAlbum3.Value = True Then
        Call WritePrivateProfileString("MW Photographer", "Album3Index", (GetPrivateProfileInt("General", "Screen Shot Index", "0", CurDir() & "\Morrowind.ini") - 50), CurDir() & "\Morrowind.ini")
    ElseIf optAlbum4.Value = True Then
        Call WritePrivateProfileString("MW Photographer", "Album4Index", (GetPrivateProfileInt("General", "Screen Shot Index", "0", CurDir() & "\Morrowind.ini") - 75), CurDir() & "\Morrowind.ini")
    End If

Here is your problem:

Quote:

---

The GetPrivateProfileInt function retrieves an integer associated with a key in the specified section of an initialization file. Note This function is provided only for compatibility with 16-bit Windows-based applications. Win32-based applications should store initialization information in the registry.

---

Two options

Convert the GetPrivateProfileInt return value with CStr.

Code:

---

Call WritePrivateProfileString("MW Photographer", "Album1Index", 
      CStr(GetPrivateProfileInt("General", "Screen Shot Index", "0", CurDir() & "\Morrowind.ini")) ,
      CurDir() & "\Morrowind.ini")

---

Or change the declaration of the WritePrivateProfileString, specifically

Byval lpString As Any to
Byval lpString as String

Thanx a lot! Just what I was looking for!

Still on topic, I have another question. This is another section of the INI file that I'm trying to manipulate(note that the values and the number of entries will be different for every user):

Code:

---

[Game Files]
GameFile0=Morrowind.esm
GameFile1=Tribunal.esm
GameFile2=Death 2.2.esp
GameFile3=Land GFX.esp
GameFile4=lgnpc_Ald'ruhn.esp
GameFile5=MW Photographer_Album4.esp
GameFile6=palace test.esp
GameFile7=Real Misc Items GFX.esp
GameFile8=Roads to Heaven.esp
GameFile9=Scum.esp
GameFile10=Seamless_BB_Asian_Race.esp
GameFile11=Snow Cottage.esp
GameFile12=Windows Glow.esp

---

And this is the function I wrote for this:

VB Code:

Private Sub CheckIt()
 
Dim X As Long, i As Long, iLenBuf As Integer, sRetBuf As String, sValue As String
 
sRetBuf$ = String$(256, 0)
iLenBuf% = Len(sRetBuf$)
 
For i = 0 To 256 ' The number of entries is actually a byte value, but it won't hurt.
    X = GetPrivateProfileString("Game Files", "GameFile" & i, "", sRetBuf$, iLenBuf%, CurDir() & "\Morrowind.ini")
    If Left$(sRetBuf$, X) = "MW Photographer_Album1.esp" And optAlbum1.Value = True Then
        Exit For
    ElseIf Left$(sRetBuf$, X) = "MW Photographer_Album2.esp" And optAlbum2.Value = True Then
        Exit For
    ElseIf Left$(sRetBuf$, X) = "MW Photographer_Album3.esp" And optAlbum3.Value = True Then
        Exit For
    ElseIf Left$(sRetBuf$, X) = "MW Photographer_Album4.esp" And optAlbum4.Value = True Then
        Exit For
    ElseIf optAlbum1.Value = True And (Left$(sRetBuf$, X) = "MW Photographer_Album2.esp" Or Left$(sRetBuf$, X) = "MW Photographer_Album3.esp" Or Left$(sRetBuf$, X) = "MW Photographer_Album4.esp") Then
        Call WritePrivateProfileString("Game Files", "GameFile" & CStr(i), "MW Photographer_Album1.esp", CurDir() & "\Morrowind.ini")
    ElseIf optAlbum2.Value = True And (Left$(sRetBuf$, X) = "MW Photographer_Album1.esp" Or Left$(sRetBuf$, X) = "MW Photographer_Album3.esp" Or Left$(sRetBuf$, X) = "MW Photographer_Album4.esp") Then
        Call WritePrivateProfileString("Game Files", "GameFile" & CStr(i), "MW Photographer_Album2.esp", CurDir() & "\Morrowind.ini")
    ElseIf optAlbum3.Value = True And (Left$(sRetBuf$, X) = "MW Photographer_Album2.esp" Or Left$(sRetBuf$, X) = "MW Photographer_Album1.esp" Or Left$(sRetBuf$, X) = "MW Photographer_Album4.esp") Then
        Call WritePrivateProfileString("Game Files", "GameFile" & CStr(i), "MW Photographer_Album3.esp", CurDir() & "\Morrowind.ini")
    ElseIf optAlbum4.Value = True And (Left$(sRetBuf$, X) = "MW Photographer_Album2.esp" Or Left$(sRetBuf$, X) = "MW Photographer_Album3.esp" Or Left$(sRetBuf$, X) = "MW Photographer_Album1.esp") Then
        Call WritePrivateProfileString("Game Files", "GameFile" & CStr(i), "MW Photographer_Album4.esp", CurDir() & "\Morrowind.ini")
    ElseIf Left$(sRetBuf$, X) = "" Then
        If optAlbum1.Value = True Then
            Call WritePrivateProfileString("Game Files", "GameFile" & CStr(i), "MW Photographer_Album1.esp", CurDir() & "\Morrowind.ini")
        ElseIf optAlbum1.Value = True Then
            Call WritePrivateProfileString("Game Files", "GameFile" & CStr(i), "MW Photographer_Album2.esp", CurDir() & "\Morrowind.ini")
        ElseIf optAlbum2.Value = True Then
            Call WritePrivateProfileString("Game Files", "GameFile" & CStr(i), "MW Photographer_Album3.esp", CurDir() & "\Morrowind.ini")
        ElseIf optAlbum3.Value = True Then
            Call WritePrivateProfileString("Game Files", "GameFile" & CStr(i), "MW Photographer_Album4.esp", CurDir() & "\Morrowind.ini")
        End If
        Exit For
    Else
        Call MsgBox("There was a problem detecting your Morrowind installation. Please Reinstall.", vbOKOnly, "Error")
        Unload frmMain
        End
    End If
Next
 
End Sub

I want it to replace the Album file entry("MW Photographer_Album4.esp" in the above INI snippet) with the one selected by the optAlbum#, and if no album is selected, make a new entry. The problem is that it always writes it in GameFile0 entry with no regards to its contents.