Keeping a Sequential INI File

[Aaron Young]

Try:

Private Sub Command1_Click()
    Dim lRet As Long
    Dim sBuff As String * 255
    Dim sUser As String
    Dim I As Integer
    
    While GetPrivateProfileString("Users", "user" & CStr(I + 1), "", sBuff, 255, "C:\MyFile.ini")
        sUser = Left(sBuff, InStr(sBuff, Chr(0)) - 1)
        If sUser <> "Deleted" Then cmbCheck.AddItem sUser
        I = I + 1
    Wend
End Sub

------------------
Aaron Young
Analyst Programmer
[email protected]
[email protected]