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
echo "File: " + FTPobj.GetFindFileName + " size: " + CStr(FTPobj.GetFindFileSize) + " bytes type: " + FileType & cr
Found=FTPobj.FindNextFile
Wend
End Function