Simple legacy Inet Ftp Upload

[TheDude]

Have fun!


Sub Main()
FtpUpload("www.site.com","user","mypass","C:\test.txt","test.txt")
End Sub

Public Function FtpUpload(ByVal ftp_site As String, ByVal ftp_user As String, ByVal ftp_pass As String, ByVal LocalFile As String, ByVal RemoteFile As String)
Dim Inet As New InetCtlsObjects.Inet()
Inet.Protocol = InetCtlsObjects.ProtocolConstants.icFTP
Inet.RemoteHost = ftp_site
Inet.UserName = ftp_user
Inet.Password = ftp_pass
Try
Inet.Execute(Inet.URL, "PUT " & LocalFile & " " & RemoteFile)
Catch myException As Exception
Return False ' Error
End Try
Do While Inet.StillExecuting
System.Windows.Forms.Application.DoEvents()
Loop
Return (Inet.ResponseCode = 0)
End Function