cocoaforge

Code: Select all

-- previously I generate a list myUploadSubFolder, containing Paths of desired documents
--  {"VolumeXY:SubFolder:Subfolder:Filename.suffix", "VolumeXY:SubFolder:Subfolder:Filename.suffix"}  ......


tell application "Cyberduck"
	set theBrowser to (make new browser)
		tell (theBrowser)
		set encoding to "UTF-8"
		connect to ftpHost with protocol "ftp" as user ftpUser with password ftpPass with initial folder ftpUploadFolder

	repeat with theFile from 1 to count of myUploadSubFolder
		try


			set myfile to item theFile of myUploadSubFolder
			upload myfile


		on error errmesg number errnum
			display dialog (errnum as text) & ": " & errmesg & ¬
			return & return & "Applet quitting."
			return
		end try
	end repeat