tell application \"FastScripts\"
set s to script items where has keyboard shortcut is true
set SL to {}
repeat with k from 1 to count s
if k < 10 then
set m to \"0\" & k
else
set m to k as rich text
end if
tell item k of s to set SL's end to (m ¬
& \" \" & name & ¬
\".......\" & shortcut string of keyboard shortcut)
end repeat
set C to choose from list SL
if C is not false then
set SF to script file of item ¬
((rich text 1 thru 2 of (C as string)) ¬
as string as number) of s
else
return
end if
end tell
run script alias SF
It looks like you're new here. If you want to get involved, click one of these buttons!