批量上传几千个图片，根据 图纸号 列的问件自动查找图片，建立目录上传。
图纸号 图片列
gg-01
gg-02
gg-011
gg-021
图片信息
gg-01 hh0112.jpg gg-01 hh0112-1.jpg
gg-011 hh0221.jpg gg-011 hh0221-1.jpg
gg-02 hh0335.jpg gg-02 hh0335-1.jpg
gg-021 hh0338.jpg gg-021 hh0338-1.jpg
通过以下代码上传， gg01 的把 gg-01 gg-011 的都上传了。
gg-01 hh0112.jpg 中间是空格
请教如何修改代码，上传 gg-01的，不把gg-011 的上传上去。
Dim path As String = "d:\test\"
Dim ftp1 As New FtpClient
ftp1.Host="127.0.0.1"
ftp1.Account = "test"
ftp1.Password = "test"
ftp1.UTF8 = True For Each dr As DataRow In DataTables("表A").Select("图纸号 is not null")
Dim path As String = "/" & dr("图纸号") & "/"
If ftp1.DirExists(path) = False Then ftp1.MakeDir(path)
Dim str As String = ""
For Each f As String In FileSys.GetFiles(path)
If FileSys.GetName(f).StartsWith(dr("图纸号")) Then
If ftp1.Upload(f, fpath & filesys.GetName(f)) = True Then
str &= fpath & FileSys.GetName(f) & vbcrlf
output.show("上传:" & filesys.GetName(f) & " 成功")
Else
output.show("上传:" & filesys.GetName(f) & " 失败")
End If
End If
next
dr("图片列") = str
Next
ftp1.close |
加好友 
发短信
Post By：2017/2/20 15:34:00 [显示全部帖子]
