nomeDir = "nome della directory dove è contenuto il file"
nomeFile = "nome del file da uplodare"


Inet1.URL = "FTP://212.131.mmm.nnn"
Inet1.UserName = "nome"
Inet1.Password = "psw"

Inet1.Execute Inet1.URL, "PUT " & " " & nomeDir & "\" & nomeFile & " " & nomeFile

Do Until Inet1.StillExecuting = False
DoEvents
Loop

MsgBox "End"