Excel VBA FTP

[DownThePaint]

I've tried several .bat examples and the MS INET for doing an FTP transfer
using Excel VBA and so far none of them work. Does anyone have a code
snippet? The simpler the better

Thanks,

 

[roger]

I've tried several .bat examples and the MS INET for doing an FTP transfer
using Excel VBA and so far none of them work. Does anyone have a code
snippet? The simpler the better

Thanks,

Dim inet1 As InetCtlsObjects.inet

Set inet1 = New InetCtlsObjects.inet
With inet1
.Protocol = icFTP
.URL = "ftp://ftp.private.com"
.UserName = "George Washington"
.Password = "no_lies"
.Execute , "CD gifs\thegifs"
.Execute , "PUT C:\source.txt target.txt"
.Execute , "CLOSE"
End With

Set inet1 = Nothing

That's an example from MSDN VB5, it works for me in Excel.