以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请求大侠帮助pdf扫描原文批量ftp上传  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74748)

--  作者:fytea
--  发布时间:2015/9/18 9:22:00
--  请求大侠帮助pdf扫描原文批量ftp上传

fb的大侠,帮我解决下面的问题
本地文件夹中已有文件名与上表中档号一致的.pdf扫描原文件若干(或多,或少),
现需要批量ftp上传,即
1.原文件文件名,与档号比较,一致的上传,“对号入座”写入字段“原文件”中。上传结束后,messagebox弹出:
批量挂接成功;
如果其中档号没有对应的pdf文件,给予注明:(如55-43-001-009)没有可供挂接的原文件;
或者:(如55-43-001-009.pdf)找不到需要挂接的目录文件
2.存放路径除了设定好第一层外
其下的路径为:data\\55\\55-43-001\\55-43-001-009.pdf

目前我只能做到如下

Dim pdfwj As New OpenFileDialog
pdfwj.Filter= "pdfwj文件|*.pdf"
pdfwj.MultiSelect = True
If pdfwj.ShowDialog = DialogResult.OK Then
    For Each fl As String In pdfwj.FileNames
       
    Next
End If

 详见见窗体

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目13.rar

[此贴子已经被作者于2015/9/18 15:16:06编辑过]

--  作者:大红袍
--  发布时间:2015/9/19 10:50:00
--  

上传附件参考

 

http://www.foxtable.com/help/topics/1410.htm