FtpPutFile总是返回False。

[谁为谁狂]

我用FTPPUTFILE上传，总是返回FALSE，但实际上文件已经传过去了。我上写入权限，而且下载是正常的。代码如下：

Option Explicit
Private Sub Form_Load()
    jgsjTime.Interval = 0
    trType = FTP_TRANSFER_TYPE_BINARY
    '打开网络
    OpenResult = InternetOpen("VB WININET", INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    If OpenResult = 0 Then Label8.Caption = "网络状态：打开网络失败！": Exit Sub
    
    '连接服务器
    ConnectResult = InternetConnect(OpenResult, "192.168.1.144", 21, "root", "12345", INTERNET_SERVICE_FTP, 0, 0)
    If ConnectResult = 0 Then Label8.Caption = "网络状态：连接服务器失败！": Exit Sub
    
    CdPath = FtpSetCurrentDirectory(ConnectResult, "\")
    If CdPath = False Then
        Label8.Caption = "进入目录失败！"
        Exit Sub
    Else
        Label8.Caption = "进入目录成功！"
    End If
    
End Sub

Function Index(strFolder)
    Dim filesys As Object
    Dim folder As Object
    Dim file As Object
    Dim f, sfd
    Set filesys = CreateObject("Scripting.FileSystemObject")
    Set folder = filesys.GetFolder(strFolder)
    For Each f In folder.Files
        If f.Type = "JPEG 图像" Then
            Set file = filesys.GetFile(f)
            UploadPic strFolder & file.Name, file.Name
        End If
    Next
      '关闭连接
    InternetCloseHandle ConnectResult
    InternetCloseHandle OpenResult
    For Each sfd In folder.SubFolders
        Index sfd
    Next
    Set file = Nothing
    Set folder = Nothing
    Set filesys = Nothing
End Function


Function UploadPic(SFile As String, DFile As String)
   '上传文件
   PutResult =FtpPutFile （ConnectResult, SFile, DFile, FTP_TRANSFER_TYPE_BINARY, 0）
   If PutResult Then
        Label8.Caption = "文件上传成功！"
   Else
      Label8.Caption =  SFile & "文件上传失败！"
      MsgBox Err.LastDllError
   End If
End Function

 

[一笑拔剑]

既然文件已经传过去了

自然可能是FtpPutFile返回错误的问题了

但是FtpPutFile返回的错误不是这样取得的

你应该用GetLastError去获取究竟是什么原因造成了FtpPutFile返回的错误

GetLastError()会返回如下错误号
ERROR_INTERNET_HTTP_TO_HTTPS_ON_REDIR
ERROR_INTERNET_INCORRECT_PASSWORD
ERROR_INTERNET_INVALID_CA
ERROR_INTERNET_POST_IS_NON_SECURE
ERROR_INTERNET_SEC_CERT_CN_INVALID
ERROR_INTERNET_SEC_CERT_DATE_INVALID

你可以从返回的错误来分析究竟是那个环节的问题