主题：通过扫描仪，如何向指定列自动添加多张图片

此主题相关图片如下：1235.gif

利用《文件监视器》，并对照着示例二利用文件监视器，非常方便。但现在有个问题，它只能自动改名并添加一张图片。 但我想的是可以添加多张照片（文件名也是自动改名并排序，照片列中有照片，它也会自动添加上的） 麻烦狐爸，以下面的代码为例，改写下我参照下。 Dim r As Row = Tables("员工").Current r("照片") = r("工号") & ".jpg" FileSys.CopyFile(e.FullPath, ProjectPath & "Attachments\" & r("照片"),True) 这里假定照片是jpg格式。 万分感谢，也万分感慨，使用狐表已近十年，但我还是只小白。。。

您好，刚测试了一下，好像不对的了，不能显示图片（好像没路径） 我想的是：那照片列照片，会自动改名：例如：工号1，工号2，工号3.。。。。等

老师，还是有问题。麻烦您看看。
此主题相关图片如下：画板 1.png

谢谢。搞定， 再次感谢您的指引。

请问老师，如果，存放的路径是在服务器上，那么利用上面的代码，该怎么改呢，谢谢。

学习了下别人方式，ftp，是可以的了。 Dim r As Row = Tables("合同").Current r("合同照片") = r("合同编号") & "_HS" & ".jpg" Dim ftp1 As New FtpClient ftp1.Host="192.168.xx.xx" ftp1.Account = "xxxxxxxxxx" ftp1.Password = "xxxxxx" If ftp1.Upload(e.FullPath,"\xx\xx\" & r("合同编号"),True) = True Then Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If 但用以上的方式，列表中，只能传一张。如果转多张，怎样写，请老师指点下。万分感谢。