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

有个表格如下：大约不到10000行。

产品货号图纸号图片列

sa7241 sj-01

sa4125 sj-1257

sa5274 sj-1457

图片格式如下：

sj-01.jpg sj-01-1.jpg sj-01-02.jpg （这里图片数量不定，一般为5-20个内）

我计划用ftp远程管理图片，用PictureViewer来显示图片。由于工作量太大，一个个上传太麻烦，想实现自动上传。

我的想法思路如下。遍历当前“产品表”

For Each r As DataRow In DataTables("产品表").DataRows

在指定目录下寻找，等于图纸号，或图纸号上加 -1 -2 等的jpg的文件。

找到文件后，上传到服务器上面。

举例： sa7241 的产品货号，上传后，会在根目录下生成目录： sj-01

目录： sj-01下面是上传的图片文件 sj-01.jpg sj-01-1.jpg sj-01-02.jpg

同时在产品表的图片列中，保存文件路径

/根目录/sj-01/sj-01.jpg

/根目录/sj-01/sj-01-1.jpg

/根目录/sj-01/sj-01-02.jpg

图片应经准备好了。

[此贴子已经被作者于2017/1/11 15:48:42编辑过]

版主，我看了，自己写不出来。

版主帮忙把根据字段查找文件的那个写出来吧。

还有在图片列中添加路径的

[此贴子已经被作者于2017/1/11 16:48:47编辑过]

Dim path As String = "d:\test\"
Dim ftp1 As New FtpClient
ftp1.Host="127.0.0.1"
ftp1.Account = "test"
ftp1.Password = "test"

ftp1.RootDir ="/产品"
ftp1.UTF8 = True

For Each dr As DataRow In DataTables("表A").Select("图纸号 is not null")
Dim fpath As String = "/" & dr("图纸号") & "/"
If ftp1.DirExists(fpath) = False Then ftp1.MakeDir(fpath)

版主，我设置了根目录，为什么无效，新生成的目录跟 /产品是同一级的，不是在/产品下一级的

[此贴子已经被作者于2017/1/12 9:05:31编辑过]

主题：代码请教版主