Sub Reveal(f as FolderItem)
If f is nil or not f.Exists then
Return
End if
dim a as AppleEvent = NewAppleEvent("misc", "slct", "MACS")
a.FolderItemParam("----") = f
If a.send then
a = NewAppleEvent("misc", "actv", "MACS")
If a.send then
//success
Else
//activate failed
End if
Else
//select failed
End if
End Sub
Be the first to comment
You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.