Part of the Samples Website. 8/16/97.

---

samples.basicStuff.stuffAndUpload

«create and upload a StuffIt archive of all the files selected in the Finder

local (sitfile = file.getSystemDisk () + "Desktop Folder:samplefile.sit")

local (hqxfile = sitfile + ".hqx")

local (serverpath = "/pub/" + "samplefile.sit.hqx")

stuff.createArchive (sitfile, finderMenu.getSelectionList (), true)

app.start ("Fetch")

Fetch.store (hqxfile, "ftp.mancuso.com", serverpath, "bullman", "no.way")

file.delete (hqxfile)

This page was last built on Sat, Aug 16, 1997 at 6:41:24 PM. You can download the current set of sample scripts from our FTP site. Dave