Dim Val As String
For Each File As String In FileSys.GetFiles("f:\图片")
if File.ToUpper.EndsWith(".JPG") Then
Val = Val & "|" & File
End if
Next
Values = Val.trim("|").split("|")
if Values.Length >0 then
For Index As Integer = 0 To Values.Length - 1
Dim r As Row = Tables("newmoo_product").AddNew
Dim s As Row = Tables("shop").AddNew
s("商品原始图片") = Values(Index)
r("ppp") = Values(Index)
Next
End if
[此贴子已经被作者于2013-5-10 13:06:40编辑过]
加好友 
发短信
Post By：2013/5/10 13:02:00 [显示全部帖子]
