主题：双击截图上传FTP 失败

If e.Col.name = "图片" Then

    baseMainForm.WindowState= Windows.forms.FormWindowState.Minimized

    ClipBoard.Clear

    Dim path As String = projectPath & "attachments/"  我想将文件直接存到 FTP 上  不行存到本地 行  已经设计好是服务器存储

    Dim proc As new Process

    proc.File = ApplicationPath & "/capture.exe"

    proc.WaitForClose = True

    proc.Start

    basemainform.WindowState = 2

    Dim dir As String = FileSys.GetParentPath(path & "/" & f)

    If FileSys.DirectoryExists(dir) = False Then FileSys.CreateDirectory(dir)

    ClipBoard.GetImage.save(path & "/" & f)

    e.Row(e.Col.name) = f

    Dim  ftp1 As  New  FtpClient

        Dim file As String = e.Row("类别") & "\" & e.Row("产品") &"\" & e.Row("采购人")

    For Each s As String In file.split("\")

        path2 = path2 & "/" & s

        If ftp1.DirExists(path2) = False Then

            ftp1.MakeDir(path2)

        End If

    Next

    

    If ftp1.Upload(path & "/" & f, path2 & "/" & e.Row("产品") & e.Row("物资编码") & e.Row("采购日期") &".png") = True Then

        

        

        'If  ftp1.Upload(path & "\" & f, "/" & f) = True Then

        Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

        

    Else

        Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

    End If

End If

e.cancel = True

Tables("物资仓存表").Current.Save() '保存文件的行

End If