The following lines were added (+) and removed (-):
Example 3: VBA, Retrieve a File from an FTP SiteExample 3: Working example to Retrieve a File from an FTP Site <nowiki>Private Sub Form_Load()</nowiki> <nowiki> strExe = "GET " & strSrc & " " & strDst</nowiki> <nowiki> ' Set a reference to the internet transfer control.</nowiki> <nowiki> With inet</nowiki> <nowiki> Set objFTP = Me!axFTP.Object</nowiki> <nowiki> .Protocol = icFTP</nowiki> <nowiki>End Sub</nowiki> <nowiki> .UserName = "username"</nowiki> <nowiki></nowiki> <nowiki> .Password = "password"</nowiki> <nowiki>Private Sub cmdGetFile_Click()</nowiki> <nowiki> .RemoteHost = "ftp.robotz.com"</nowiki> <nowiki> Dim strSite As String</nowiki> <nowiki> .Execute , strExe</nowiki> <nowiki> Dim strFile As String</nowiki> <nowiki> End With</nowiki> <nowiki> strSite = Me!txtFTPSite</nowiki> <nowiki> strFile = Me!txtFileName</nowiki> <nowiki> objFTP.Protocol = icFTP</nowiki> <nowiki> objFTP.URL = strSite</nowiki> <nowiki> objFTP.Execute strSite, "Get " & strFile & " C:\" & strFile</nowiki> <nowiki>End Sub</nowiki> <nowiki></nowiki> <nowiki>Private Sub axFTP_StateChanged(ByVal State As Integer)</nowiki> <nowiki> ' Display a message when the transfer is finished.</nowiki> <nowiki> If State = 12 Then Msgbox "File Transferred"</nowiki> <nowiki>End Sub</nowiki>