將URL屬性設置為FTP服務器的URL。
將用戶名(Username)和密碼(Password)的屬性設置為合法的用戶ID和密碼,這也是FTP所要用到的。(如果你將這些屬性留成空白,那麼用戶名屬性就會被設置為匿名(anonymous),而密碼屬性會被設置為一個缺省的密碼。)
將協議(Protocol)屬性設置為icFTP,這是訪問FTP所需要的。設置一下RequestTimeout,以防止在服務器沒有相應的時候控件掛起。例如:
WithInet1
.URL="ftp://myftpserver"
.UserName="myusername"
.Password="mypassword"
.Protocol=icFTP
.RequestTimeout=120
EndWith
要進行GET或者PUT操作,就要調用Execute方法。第一個自變量是可選的,它允許你指定URL。第二個自變量能夠讓你指定要進行的操作。當GET操作被調用的時候,你必須傳遞被請求文件的名稱和要創建的本地文件名。當PUT操作被調用的時候,要被上傳的文件就會被指定,然後就在FTP服務器上創建這個文件。
CallInet1.Execute(,"GETftpfile.txtc: empftpfile.txt")
CallInet1.Execute(,"PUTc: empftpfile.txtftpfile2.txt")
Execute方法是異步工作的,所以你可以使用StateChanged事件來監控這項操作的進展情況。State自變量會是一個StateConstant。你可以使用對象浏覽器(ObjectBrowser)或者在線幫助(OnlineHelp)來查看State所有合法的值。
PrivateSubInet1_StateChanged(ByValStateAsInteger)
Debug.PrintState
EndSub
如果State等於icError,那麼你可以通過ResponseCode和ResponseInfo屬性來獲取錯誤信息。
Debug.PrintInet1.ResponseCode
Debug.PrintInet1.ResponseInfo