home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 September / Macworld (1998-09).dmg / Shareware World / Info / For Developers / Script Tools 1.3.6 / Examples / Move File < prev    next >
Encoding:
Text File  |  1993-09-10  |  434 b   |  11 lines  |  [TEXT/ToyS]
  1. --
  2. --    Find out if the user wants to move a file or a folder
  3. --
  4.  
  5. if button returned of (display dialog "Move a file or a folder?" buttons {"File", "Folder"}) = "File" then
  6.     move file (choose file with prompt "Pick a file to move:") to (¬
  7.         choose folder with prompt "Pick a destination folder:")
  8. else
  9.     move file (choose folder with prompt "Pick a folder to move:") to (¬
  10.         choose folder with prompt "Pick a destination folder:")
  11. end if