主题：FTPClient上传文件自动压缩

1、自动调整大小参考

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=89637

2、上传图片的功能你可以单独做一个按钮、实现upload的功能

http://www.foxtable.com/webhelp/scr/2638.htm

http://www.foxtable.com/webhelp/scr/1410.htm

3、或者是，你可以在服务器端那里，做一个foxtable项目，定时把文件夹没有压缩的图片压缩成符合规格的图片。

Dim file As String = fl
Dim img As image = getImage(file)
Dim bmp As bitmap
If img.width > 800 Then
    If 800 * (img.height / img.width) > 600 Then
        bmp = new bitmap(img, 800*(600/(800*(img.height/img.width))), 600)
    Else
        bmp = new bitmap(img, 800, 800 * (img.height / img.width))
    End If
End If
bmp.save("d:\temp.jpg")
bmp.Dispose

If Ftp1.Upload("d:\temp.jpg",fpath & filesys.GetName(fl),True) = True Then