ftp上传图片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师：你好！我ftp上传图片代码是这样写的：

If filesys.FileExists("\\NTHS-369\扫描文件\Image_00001.jpg") Then

Dim fileName3 As String = "HSKT" & DateTime.Now.ToString("yyyyMMddHHmmss") & ".jpg"

FileSys.CopyFile("\\NTHS-369\扫描文件\Image_00001.jpg","\新建文件夹\HSKT" & DateTime.Now.ToString("yyyyMMddHHmmss") & ".jpg")

Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")

Dim Files As List(of String) = piv.FtpClient.SelectFile()

For Each File As String In Files

'piv.AddFile(File)

End If 点击后打开ftp管理器再选择图片上传我想点击就直接上传不用打开ftp管理器同时在 PictureViewer1显示出来

用：按钮上传，比如这样

Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
dlg.MultiSelect = True
If dlg.showDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim ftp1 As new ftpclient
    ftp1.host="127.****.0"
    ftp1.Account = "ft***"
    ftp1.password = "1****"
    Dim r As Row = Tables("计量产值统计表").Current
    Dim ls = r.DataRow.Lines("附件")
    For Each f As String In dlg.FileNames
        Dim d As String = Format(Date.Today ,"yyyyMM") '格式化日期为202103
        Dim file = "/计量产值管理/" & r("项目名称") & "/" & d & "/" & filesys.GetName(f)
        If ftp1.DirExists("/计量产值管理/" & r("项目名称")) = False Then
            ftp1.MakeDir("/计量产值管理/" & r("项目名称"))
        End If
        If ftp1.DirExists("/计量产值管理/" & r("项目名称") & "/" & d) = False Then
            ftp1.MakeDir("/计量产值管理/" & r("项目名称") & "/" & d)
        End If

        Dim Result As DialogResult
        If ftp1.FileExists(file) Then
            Result = MessageBox.Show("文件已经存在,是否覆盖?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        End If
        If result = Nothing OrElse result = DialogResult.Yes Then
            If ftp1.Upload(f,file,True) = True Then
                If ls.contains(file) = False Then
                    ls.add(file)
                End If
            Else
                MessageBox.Show( f & "上传失败" ,"提示" ,MessageBoxButtons.OK,MessageBoxIcon.Question)
            End If
        End If
    Next
    r.DataRow.lines("附件") = ls
    ftp1.Close
End If

[此贴子已经被作者于2022/5/24 9:54:39编辑过]

代码要怎样写，谢谢老师指导

不用打开ftp管理器就不能使用示例三：http://www.foxtable.com/webhelp/topics/2697.htm

应该使用前面2个示例的用法呀，在本地选择文件后直接添加即可

老师：你好！我使用第三方拍照程序打开代码：Dim Proc As New Process

Proc.File = ProjectPath & "Attachments\得力闪拍\DeliCamera.exe"

Proc.Start() 可以正常打开但关闭代码：Dim Proc As New Process

Proc.File = ProjectPath & "Attachments\得力闪拍\DeliCamera.exe"

Proc.Close 关闭不了报错“没有与对象关联的进程”

代码要怎样写？请老师指教

没有办法使用代码关闭，只能点击第三方程序的关闭按钮关闭

老师;你好！我的文字识别代码是这样的（附件）图片管理器是用远程报错“识别接口调用失败,错误描述:

未能找到文件“I:\ygtp20220526021831.jpg”。”代码要怎样写才能正常

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档.txt

主题：ftp上传图片