以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这段代码我想在保存前，自动缩小图片的大小后在保存  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64575)
--  作者：jinzhengbe
--  发布时间：2015/2/24 14:52:00
--  这段代码我想在保存前，自动缩小图片的大小后在保存
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\\")
--  作者：有点甜
--  发布时间：2015/2/24 14:56:00
--  

 参考代码

 

Dim file As String = "d:\\test.jpg"
Dim img As image = getImage(file)
Dim bmp As new bitmap(img, 180, 180 * (img.height / img.width))
bmp.save("d:\\缩略图.jpg")
bmp.Dispose

--  作者：jinzhengbe
--  发布时间：2015/2/24 18:55:00
--  
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")        
        
FileSys.CopyFile(file, "D:\\as\\" & s & ".jpeg",True )  请问可不可以直接在这个参数里面直接设置？
感谢！！！
--  作者：有点甜
--  发布时间：2015/2/24 19:15:00
--  
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 img As image = getImage(file)
    Dim bmp As new bitmap(img, 180, 180 * (img.height / img.width))
    bmp.save("D:\\as\\" & s & ".jpg")
    bmp.Dispose
   

 
--  作者：jinzhengbe
--  发布时间：2015/2/26 1:34:00
--  
非常非常感谢。！！！！！！