For Each File As String In FileSys.GetFiles("C:\图片\")
Dim f As Io.FileInfo = FileSys.GetFileInfo(File)
Dim r As Row = Tables("商品").AddNew
r("ppp") = f.name
Dim d As String = Tables("商品").Current("bh1")
Dim s As String = Tables("商品").Current("cn_name")
检查图片大小 ,
将图片的大小改成 宽180,高度按比例自动适应
然后(请问这个地方的代码应该怎么写? 非常感谢)
FileSys.CopyFile(file, "D:\as\" & s & ".jpeg",True )
'FileSys.CopyFile(file, "D:\taobao\" & s & ".tbi",True )
Next
'FileSys.CopyDirectory("D:\as", "D:\shuiyin\")