[VBA/ACCESS] Invio di un file tramite INet con protocollo FTP

[kolon88]

Dim passw As String
Dim ftpurl As String
User = "lightpcit" ' USER
paswd = "dualcore" ' PASS
ftpurl = "ftp://lightpc.it" ' FTP Address
Inet1.URL = ftpurl
Inet1.Username = User
Inet1.Password = paswd

nomeDir = "e:\"
NomeFile = Immgine.FileName

Inet1.Execute Inet1.URL , "PUT " & " " & nomeDir & "\" & _
NomeFile & " " & NomeFile


Close

End Sub