on error resume next
	Sub location_chooser_FSCommand(ByVal command, ByVal args)
'		MsgBox "VBScript triggered"
		call location_chooser_DoFSCommand(command, args)
	end sub
'MsgBox "VBScript trigger loaded"