主题：请求大侠帮助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