GetFile

GetFile 從遠端電腦擷取檔案。 之後會將檔案儲存在本機。

語法

GetFile(STRING remotefile, String localfile)

其中:

  • RemoteFile 是字串,例如:readme.txt
  • LocalFile 是字串,例如:readmecopy.txt
結果

布林。 如果傳回 TRUE,表示函數成功,否則,將意味著傳回錯誤。 當傳回 FALSE 後,FTPObject.LastError 將傳回 WIN32 錯誤代碼。

範例

FTP用於在網路電腦之間傳輸檔的通訊協定。 物件中的 GetFile 函數範例。 擷取在 FTP 伺服器的根等級找到的所有檔:

Function Main

Dim FTPobj as Object

Const DIRECTORYMASK=&H10

ip = "127.0.0.1"

port = 21

cr = Chr(13) + Chr(10)

Set FTPobj = FTP.Connect (ip,port,TRUE,"anonymous","lnss@gfi.com")

Found=FTPobj.FindFirstFile("*")

While Found

If (FTPobj.GetFindFileAttributes And DIRECTORYMASK) = DIRECTORYMASK Then

FileType="directory"

Else

FileType="file"

ret = FTPobj.GetFile (FTPobj.GetFindFileName, FTPobj.GetFindFileName)

End If

回應 "檔案: " + FTPobj.GetFindFileName + " 大小: " + CStr(FTPobj.GetFindFileSize) + " 位元組類型: " + FileType & cr

Found=FTPobj.FindNextFile

Wend

End Function