Public Sub WriteIni(mykey As String,myvalue As String,fPath As String,filename As String)As String
Dim Map1 As Map
Map1.Initialize
If File.Exists(fPath,filename) Then
Else
File.WriteMap(fPath, filename, Map1) 'to create it if not exist
End If
Map1 = File.ReadMap(fPath,filename)
Map1.Put(mykey, myvalue)
File.WriteMap(fPath, filename, Map1)
End Sub
Public Sub ReadIni(key As String,fPath As String,filename As String) As String
Dim Map1 As Map
Map1 = File.ReadMap(fPath,filename)
For i = 0 To Map1.Size - 1
If Map1.GetKeyAt(i) = key Then
Return Map1.GetValueAt(i)
End If
Next
End Sub