MacFormat 1994 November/macformat-018.iso/Utility Spectacular/Script/GTQLib1.2.as folder/Sample Scripts/Alias>AppleM

Text File | 1994-05-03 | 374 b | 14 lines | [TEXT/ToyS]

on open f
    set n to f as string
    set oldDelims to AppleScript's text item delimiters
    set AppleScript's text item delimiters to {":"}
    set n to last text item of n
    set AppleScript's text item delimiters to oldDelims
    set f to (make alias f named n at path to apple menu items folder)
    f
end open

on run
    choose file with prompt "Choose file to alias:"
    open result
end run