[Tutorial/Snippet][VB6] Reading and writing INI Files

Purpose: Saving settings, etc.

Setting it up

Create a new module
Name it something along the lines of "SaveSets"
Add the following code to your module:

Code:

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
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
Public Check As String

Public Function Load(Section As String, Key As String) As String 
Dim lngResult As Long 
Dim strFileName 
Dim strResult As String * 300
strFileName = App.Path & "\settings.ini" 
lngResult = GetPrivateProfileString(Section, Key, strFileName, strResult, Len(strResult), strFileName) 
Check = App.Path & "\sets.ini" 
Load = Trim(strResult) 
End Function

Public Function Save(Section As String, Key As String, Content As String)
Dim lngResult As Long
Dim strFileName
strFileName = App.Path & "\settings.ini"
lngResult = WritePrivateProfileString(Section, Key, Content, strFileName)
End Function

Now, change where it says "settings.ini" to file name of which you want to read and write.
All of the rest of the code will stay the same, you shouldn't have much of a reason to chance it.

Using it

Saving

To save something, write the following under the code for your button or whatever it is your saving from.

Code:

Call Save("Section", "Label", "Value")

Now start to fill this out. Right now that would output the following:

Code:

[Section]
Label = Value

Knowing that, replace section, label, and value with whatever you want to save.

Loading

To load something, put the following code for when you want to load:

Code:

Call Load("Section", "Label")

or, to assign the value it loaded to a variable,

Code:

MyVariable = Load("Section", "Label")

This works the same way as above and needs to have the same values for section and label or else it will NOT work.

If you need anymore help, just post saying so and I'll do my best to help.

The words in red are the error i get i try to fix them but i think i made it worse?

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
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
Public Check As String

Public Function Load(Section As String, Key As String) As String
Dim lngResult As Long
Dim strFileName
Dim strResult As String * 300
strFileName = App.Path & "\settings.ini"
lngResult = GetPrivateProfileString(Section, Key, strFileName, strResult, Len(strResult), strFileName)
Check = App.Path & "\sets.ini"
Load = Trim(strResult)
End Function

Public Function Save(Section As String, Key As String, Content As String)
Dim lngResult As Long
Dim strFileName
strFileName = App.Path & "\settings.ini"
lngResult = WritePrivateProfileString(Section, Key, Content, strFileName)
End Function

[Tutorial/Snippet][VB6] Reading and writing INI Files

Post a Reply

Similar Threads

Tags for this Thread