PutFile
PutFile はローカル ディスクからリモート ftp サーバーにファイルをアップロードします。
構文
PutFile(STRING localfile, STRING remotefile)
内容:
LocalFileは文字列です (例:readme.txt)Remotefileは文字列です (例:readme.txt)
戻り値
ブール値。 TRUE が戻される場合、関数は正常終了しました。それ以外の場合、エラーが戻されたことを意味します。 FALSE が戻される場合、FTPObject.LastError は WIN32 エラー コードを戻します。
例
リモート FTPネットワーク コンピューター間でファイルを転送するために使用するプロトコル。 サーバー上でファイルをアップロードし、削除する例:
Function Random(N)
Random = Int(N*Rnd)
End Function
Function Main
Dim FTPobj As Object
Dim fl As Object
'必要に応じて設定
ip = "127.0.0.1"
port = 21
mode = FALSE
username = "anonymous"
password = "test@lnss.com"
cr = Chr(13) + Chr(10)
Set fl = file.Connect("127.0.0.1")
fl.Open "testfile.txt", GENERIC_WRITE, CREATE_ALWAYS
fl.writeline("This is a testfile")
'ランダム化を初期化
Randomize
fl.Close
'ここでファイル名に追加するためにランダム数を生成
For K = 1 To 10
randomnumber = randomnumber & CStr(Random(10))
Next
tempFile = "lnssFile" + randomnumber
'新しい ftp 接続を作成
Set FTPobj=FTP.Connect (ip,21,mode,username,password)
If FTPobj.PutFile ( "testfile.txt", tempFile ) = TRUE Then
echo "File write access is available to anonymous ftp at " + ip & cr
If FTPobj.DeleteFile ( tempFile ) = TRUE Then
echo "File Delete access is available to anonymous ftp at " + ip& cr
Else
echo "File Delete access is not available. You might need to Delete files created by GFI LanGuard" & cr
End If
End If
fl.Delete("testfile.txt")
End Function