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