OS 10.6.2.
This (portion of) script ,after five years of using it, fails. What has changed?
on run
set myFolder to choose folder
tell me to open {myFolder}
end run
on open (droppedItems)
repeat with index from 1 to the count of droppedItems
-- display dialog (count of droppedItems) & " " & index & " " & droppedItems as string
set currentItem to (item index of droppedItems)
tell application "Finder" to set theKind to kind of currentItem
-- display dialog theKind as string
if theKind is not "Folder" then
ignoring application responses
say "Only folders are allowed."
end ignoring
tell application "System Events"
activate
display dialog "Only folders are allowed!" buttons {"OK"} default button "OK" giving up after 10
end tell
-- return -- quit
end if
beep 2
end repeat
beep
end open