Home Products Customers Tips VBA OfficeOne on Mac Contact us

Upload File Using FTP

Microsoft ships a redistributable msinet.ocx with a number of products including Visual Basic 5.0, 6.0, Office 2000 Developer, Visual FoxPro 6.0, Visual C++ 5.0, 6.0. This file hosts Microsoft Internet Transfer Control which implements a number of protocols including HTTP and FTP. You need to know the commands that initiate the operations.

The code snippet given below shows how to use Microsoft Internet Transfer Control to upload a file to a machine. To use the code, make sure that you add a reference to Microsoft Internet Transfer Control. To add a reference to it

  1. Select Tools | References....
  2. Select Microsoft Internet Transfer Control from the available references.
    1. If it is not available, click the Browse... button. You will be presented with the Add Reference dialog box.
    2. Locate and select MSINET.OCX. This file is usually present in the System folder.
    3. Click Open to dismiss the Add Reference dialog box.
  3. Click OK.

Function UploadFile(ByVal HostName As String, _
    ByVal UserName As String, _
    ByVal Password As String, _
    ByVal LocalFileName As String, _
    ByVal RemoteFileName As String) As Boolean

    Dim FTP As Inet

    Set FTP = New Inet
    With FTP
        .Protocol = icFTP
        .RemoteHost = HostName
        .UserName = UserName
        .Password = Password
        .Execute .URL, "Put " + LocalFileName + " " + RemoteFileName
        Do While .StillExecuting
            DoEvents
        Loop
        UploadFile = (.ResponseCode = 0)
    End With
    Set FTP = Nothing
End Function

Some points to keep in mind

  • The function returns True if the operation succeeds otherwise it returns False.
  • If the specified file (RemoteFileName) is already present on the remote machine, the function will overwrite the existing file.

See Also

Download File Using FTP


Home | Products | Tips | VBA | FAQ | Utilities | Disclaimer | Privacy Policy | Mac | Links | Contact us

Contact OfficeOne on email at officeone@officeoneonline.com. Copyright © 2001-2017 OfficeOne. All rights reserved.

page counter