codice:
Inet1.URL = "FTP://your ftp site name goes here" 
Inet1.UserName = "Your ftp login name goes here" 
Inet1.Password = "Your ftp password goes here" 
Inet1.Execute , "PUT c:\localfilename remotefilename" 
Do While Inet1.StillExecuting 
    DoEvents 
Loop