以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  ftp上传前自动修改图片大小和文件名（按日期）  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=80112)
--  作者：zoyong
--  发布时间：2016/1/16 14:14:00
--  ftp上传前自动修改图片大小和文件名（按日期）
ftp上传前自动修改图片大小和文件名

比如将张三的身份证、毕业证书、职称证书、照片等上传到"FTP\\人事图片\\"下面"张三"的目录下,上传前将图片大小改为300*300像素后，自动改名为张三1。张三2。张三3………，文件名不重复。或者直接以日期形式2016010801，2016010802，2016010803
[此贴子已经被作者于2016/1/16 14:14:45编辑过]
--  作者：大红袍
--  发布时间：2016/1/16 16:49:00
--  

1、修改图片大小

 

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

 
--  作者：大红袍
--  发布时间：2016/1/16 16:55:00
--  

2、重命名，参考

 

Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
Dim i As Integer = 1
Dim name As String = "张三"
Do While ftp1.FileExists("/photo\\" & name & i & ".jpg")
    i += 1
Loop
ftp1.Upload("d:\\test.jpg", "/photo\\" & name & i & ".jpg")
--  作者：bluev
--  发布时间：2016/7/13 17:35:00
--  
留记号！！
--  作者：yiningyl
--  发布时间：2018/5/20 20:57:00
--  
mark