主题：ftp上传前自动修改图片大小和文件名（按日期）

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

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