Simple legacy Inet Ftp Upload

Tech Talk vb.Net
1

Have fun!


Sub Main() 
  FtpUpload("www.site.com","user","mypass","C:	est.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