The following lines were added (+) and removed (-):
This control is good for short pages only. Microsoft's Internet Transfer control [http://support.microsoft.com/kb/q232194/ has a bug] whereby you will not always get the full contents of the page. See the WinInet section of this page for details on the work around. This control is good for short pages only. Microsoft's Internet Transfer control [http://support.microsoft.com/kb/q232194/ has a bug] whereby you will not always get the full contents of the page. See the [[#WinInet_API_Alternative_.28work_around.29|WinInet section]] of this page for details on the work around. There is a fix out by Microsoft in the form of a service pack. If you use the service pack fix then you won't need to concern yourself with the bug or work around.== Inet Transfer Control ==* [http://msdn2.microsoft.com/en-us/vstudio/aa718364.aspx Visual Studio Service Pack 6] == Inet Transfer Control / ITC == The '''[http://support.microsoft.com/kb/q163653/ Internet Transfer ActiveX Control]''' component can be used to download files from the Internet. ITC can be used to send and retrieve documents across the net. ITC supports both synchronous and asynchronous transfers. In synchronous transfer, you can make the system wait until the transfer is complete, and in asynchronous transfer, the system can work as usual while the file is transferred in the background.in order by state number (same as above):<big><big> ' 0 ........................ stateless ' 1 .......... checking remote address ' 2 .......... remote address accepted ' 3 ....................... connecting ' 4 ........................ connected ' 5 .................. data requesting ' 6 ..................... request sent ' 7 ............... response receiving ' 8 ................ response received ' 9 .................... disconnecting ' 10 ..................... disconnected ' 11 ............................ error ' 12 .......................... success</big></big> Here is a State to Text Function you may find useful: Private Function StateText(n As Integer) As String Select Case n Case 0: StateText = "stateless" Case 1: StateText = "checking remote address" Case 2: StateText = "remote address accepted" Case 3: StateText = "connecting" Case 4: StateText = "connected" Case 5: StateText = "data requesting" Case 6: StateText = "data sent" Case 7: StateText = "response receiving" Case 8: StateText = "response received" Case 9: StateText = "disconnecting" Case 10: StateText = "disconnected" Case 11: StateText = "error" Case 12: StateText = "success" Case Else: StateText = "that's weird" End Select End FunctionExample 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>You can tell the program to continue while waiting for the connection to finish. <nowiki> objFTP.Execute strSite, "Get " & strFile & " C:\" & strFile</nowiki> <nowiki>End Sub</nowiki> 'Essential to avoid tying up the system <nowiki></nowiki> Do Until inet.StillExecuting = False ' WAIT Downloading.. <nowiki>Private Sub axFTP_StateChanged(ByVal State As Integer)</nowiki> DoEvents <nowiki> ' Display a message when the transfer is finished.</nowiki> Loop <nowiki> If State = 12 Then Msgbox "File Transferred"</nowiki> <nowiki>End Sub</nowiki>