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