bk is code module
I want to add to bookmark
bk :
Sub addb(ID As String)
Dim m1 As Map
m1.Initialize
If File.Exists(File.DirDocuments,"b") = True Then
m1 = File.ReadMap(File.DirDocuments,"b")
End If
m1.Put(ID)
File.WriteMap(File.DirDocuments,"b",m1)
End Sub
Sub CheckExistBk(ID As String) As Boolean
Dim m1 As Map
m1.Initialize
If File.Exists(File.DirDocuments,"b") = False Then Return False
m1 = File.ReadMap(File.DirDocuments,"b")
Return m1.ContainsKey(ID)
End Sub
----
add to bookmark :
Sub star4_click
If bk.CheckExistBookmark(ID) = False Then
bk.Addb(ID)
Log("Add")
End If
End Sub