Celestin Apprentice 7/Apprentice-Release7.iso/Utilities/Internet/Anarchie 2.0.1/Scripting/AppleScripts/DropPut Example 1

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