主题：这段代码还有优化的空间么?

同时，不要用一个文件夹保存所有的图片，一个文件夹保存每次1500张图片，是恐怖的，如果有几万张，你那个文件夹打开都会很慢。

建议再分文件夹，比如按日期。

With  DataTables("商品")
    .StopRedraw
    For Each File As String In FileSys.GetFiles("C:\图片\")
        Dim f As Io.FileInfo =  FileSys.GetFileInfo(File)
        Dim r As Row = Tables("商品").AddNew
        Dim d As String = r("bh1")
        Dim s As String = r("cn_name")
        Dim img1 As image = getImage(file)
        Dim bmp1 As new bitmap(img1, 150, 150 * (img1.height / img1.width))
        bmp1.save("f:\as2\" & s & "p.jpeg")
        bmp1.Dispose
       
       
        FileSys.CopyFile(file, "f:\as1\" & s & "s.jpeg",True )
        FileSys.CopyFile(file, "f:\as\" & s & ".jpeg",True )
        FileSys.CopyFile(file, "f:\qrcord\taobao\" & s & ".tbi",True )
    Next
    .ResumeRedraw
End  With