LiveCode Forums.

Code: Select all

constant FTPHOST = "ftp.An IP address"
constant FTPUSER = "my user"
constant FTPPASS = "my passowrd"

on mouseUp
    # Start by getting the file to upload
    local tFileForUpload, tFileName
    answer file "Select a file to upload"
    put it into tFileForUpload
    
    # Get the name of the file for upload
    set the itemdel to "/"
    put the last item of tFileForUpload into tFileName
    put empty into field 1
    
    # Connect the start the upload
    local tDestination
    put "ftp://" & FTPUSER & ":" & FTPPASS & "@" & "/gagsoft/" & tFileName into tDestination
    libURLSetStatusCallback "uploadProgress", the long ID of me
    libURLftpUploadFile tFileForUpload, tDestination, "uploadComplete"
end mouseUp

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

Status Update: connecting 
Status Update: error 

Code: Select all

put "ftp://41.204.205.166" & FTPUSER & ":" & FTPPASS & "@" & "/gagsoft/" & tFileName into tDestination