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

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")       
    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

这段代码还有优化的空间么?   是一个按钮的代码 ,每次都要处理 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
         r("ppp") = f.name
           Next
     .ResumeRedraw
 End  With

非常感谢