分享一个FTP单文件上传的例子

bhffhzh

这两天在看FTP遍历上传文件夹及文件相关， 官方看到的这个，送给需要的人（加了注释改了改）

#include <FTPEx.au3>
#include <MsgBoxConstants.au3>
#include <Inet.au3>

_SendMyFile()

Func _SendMyFile()
        Local $sServer = '192.168.0.103'
        Local $sUsername = 'abc'
        Local $sPass = 'acb'
        Local $Err, $sFTP_Message

        Local $myFile = 'g:\back\444.zip'
         

        Local $hOpen = _FTP_Open('MyFTP Control') ;打开一个 FTP 会话.
        Local $hConn = _FTP_Connect($hOpen, $sServer, $sUsername, $sPass, 1) ;被动模式  连接到一个 FTP 服务器
        If @error Then
                MsgBox($MB_SYSTEMMODAL, '提示:', "FTP连接错误。 " & 'ERROR=' & @error)
        Else
                _FTP_GetLastResponseInfo($Err, $sFTP_Message) ;检索错误或服务器响应。
                ConsoleWrite('$Err=' & $Err & '   $sFTP_Message:' & @CRLF & $sFTP_Message & @CRLF) ;在控制台输出数据

                Local $myDir = _FTP_DirCreate($hConn, "/") ;在 FTP 服务器上建立一个目录，如Uploads
                _FTP_DirSetCurrent($hConn, '/');设置 FTP 服务器上的当前目录 如/Uploads/

                _FTP_GetLastResponseInfo($Err, $sFTP_Message);检索错误或服务器响应。
                ConsoleWrite('$Err=' & $Err & '   $sFTP_Message:' & @CRLF & $sFTP_Message & @CRLF) ;在控制台输出数据
                ;FileChangeDir ( "T:\Temp3" )

                Local $fileput = _FTP_FilePut($hConn, $myFile, "444.zip") ;上传文件
                
                _FTP_GetLastResponseInfo($Err, $sFTP_Message);检索错误或服务器响应。
                ConsoleWrite('$Err=' & $Err & '   $sFTP_Message:' & @CRLF & $sFTP_Message & @CRLF);在控制台输出数据

                Local $iFtpc = _FTP_Close($hConn);关闭 _FTP_Open 打开的回话
                Local $iFtpo = _FTP_Close($hOpen)
        EndIf
        Local $iFtpc = _FTP_Close($hConn)
        Local $iFtpo = _FTP_Close($hOpen)
        
        ConsoleWrite('CLOSED CONNECTION AND DONE: $Err=' & $Err & '   $sFTP_Message:' & @CRLF & $sFTP_Message & @CRLF)
        MsgBox($MB_SYSTEMMODAL, "提示：", "传输完成！")
EndFunc   ;==>_SendMyFile

 

Xxkwwz

学习一下，如果FTP文件多的话还是有用的