GetFile

GetFile 从远程计算机检索文件。 之后会将文件存储在本地。

语法

GetFile(STRING remotefile, String localfile)

其中:

  • RemoteFile 是字符串,例如:readme.txt
  • LocalFile 是字符串,例如:readmecopy.txt
返回

布尔。 如果返回 TRUE,表明函数成功,否则,将意味着返回错误。 当返回 FALSE 后,FTPObject.LastError 将返回 WIN32 错误代码。

示例

FTP用于在网络计算机之间传输文件的协议。 对象中的 GetFile 函数示例。 检索在 FTP 服务器的根级别找到的所有文件:

函数 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

echo "File: " + FTPobj.GetFindFileName + " size: " + CStr(FTPobj.GetFindFileSize) + " bytes type: " + FileType & cr

Found=FTPobj.FindNextFile

Wend

End 函数