System.KeychainCount

From Xojo Documentation

Read-Only Property (As Integer )


IntegerValue = aSystem.KeychainCount

New in 5.0

Supported for all project types and targets.

Returns the number of available Keychains (macOS only).

Notes

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

Example

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")
Else
Beep
MessageBox("You don't have a key chain.")
End If

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