From Xojo Documentation

Read-Only Property (As Integer )
IntegerValue = aSystem.KeychainCount

Supported on Desktop, Web, Console (Mac).

Returns the number of available Keychains (macOS only).


This number includes all Keychains within the Keychains folder as well as any other Keychains known to the Keychain's manager.


The following example adds a KeychainItem for an application and assigns a password. It first checks to make sure that there are some keychain items.

Var newItem As KeychainItem
If System.KeychainCount > 0 Then
newItem = New KeychainItem
// Indicate the name of the application
newItem.ServiceName = "MyApplication"

// Create a new keychain item for the application and assign the password
System.KeyChain.AddPassword(newItem, "SecretPassword")
MessageBox("You don't have a key chain.")
End If

Exception e As KeychainException
MessageBox("Can't add item: " + e.Message)