LiveCode Forums.

Code: Select all

on mouseUp 
      # Start by getting the file to upload
   # Put your FTP server address, your login and your password
   --
   global tName
    set the defaultFolder to specialFolderPath("Documents")  
    put "file:"& tName &".txt" into tPath
   put fld "score" into URL (tPath)

put tPath into tFileForUpload

 # Get the name of the file for upload?
local tFileName
set the itemdel to "/"
put the last item of tFileForUpload into tFileName

# Data for Communication with server
constant FTPHOST = "ftp.drivehq.com"
   constant FTPUSER = "XXXXX.XXX"
constant FTPPASS = "XXXXXXXXXXXXXX"

local tDestination
put "ftp://" & FTPUSER & ":" & FTPPASS & "@" & FTPHOST&"/" &tFileName into tDestination

libURLSetStatusCallback "uploadProgress", the long ID of me
libURLftpUploadFile tFileForUpload, tDestination, "uploadComplete"
end mouseUp

#progress of upload
on uploadComplete pURL, pStatus
put "Status Update:" && pStatus && return after field 1
end uploadComplete
on uploadProgress pURL, pStatus
put "Status Update:" && pStatus && return before field 1
end uploadProgress

Code: Select all

...
put specialFolderPath("Documents") & tName &".txt" into tPath
put fld "score" into URL ("file:" & tPath)
put tPath into tFileForUpload
## No "file:" at the beginning!

## Save 2 lines, lazy moi  :) 
put tName & ".txt" into tFileName

constant FTPHOST = "ftp.drivehq.com"
constant FTPUSER = "XXXXX.XXX"
constant FTPPASS = "XXXXXXXXXXXXXX"
...