MacFormat 1996 July/macformat-039.iso/Internet Essentials/Internet Shareware/Anarchie-160/Example Scripts/DropPut

Text File | 1994-09-08 | 231 b | 13 lines | [TEXT/ToyS]

property whereto : "ftp://user:pasword@host/path/"

on open doc
    if doc's class is not list then
        set doc to {doc}
    end if
    repeat with i in doc
        tell application "Anarchie"
            store i url whereto
        end tell
    end repeat
end open