GetAllProfileNames Example

Using Programming Languages other than VBA

Sub Example_GetAllProfileNames()
	' This example gets all the profiles available for the system.

	Dim systemProfiles As Variant
	Call AcadApplication.preferences.Profiles.GetAllProfileNames(systemProfiles)
	' List all the profiles for the system
	Dim x As Integer
	Dim msg As String
	msg = ""
	For x = LBound(systemProfiles) To UBound(systemProfiles)
		msg = msg & systemProfiles(x) & vbCrLf
	MsgBox msg, vbInformation, "Available Profiles"
End Sub