PutFile
語法
PutFile(STRING localfile, STRING remotefile)
其中：
Localfile是字串，例如：readme.txtRemotefile是字串，例如：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("這是測試檔")
'初始化隨機選擇
隨機產生
fl.Close
'現在產生一個要新增到檔案名稱的隨機編號
For K = 1 To 10
randomnumber = randomnumber & CStr(Random(10))
下一步
tempFile = "lnssFile" + randomnumber
'建立新的 ftp 連線
Set FTPobj=FTP.Connect (ip,21,mode,username,password)
If FTPobj.PutFile ( "testfile.txt", tempFile ) = TRUE Then
回應 "檔案寫入存取權可用於匿名 ftp 於" + ip & cr
If FTPobj.DeleteFile ( tempFile ) = TRUE Then
回應 "檔案刪除存取權可用於匿名 ftp 於" + ip& cr
Else
回應 "檔案刪除存取權無法使用。 您可能需要刪除由 GFI LanGuard 建立的檔案" & cr
End If
End If
fl.Delete("testfile.txt")
End Function