vb的inet控件上传大文件失败求帮助
我需要写一个小程序,需要用到向ftp服务器上传图片文件的功能,我选择了使用inet控件,当图片比较小的时候,运行程序可以成功上传,可是一旦图片大一点,比如说有1m,则程序出现假死现象,最后退出,我看ftp服务器上的图片没有接受完,所以打开图片只能看到半截图片,这是为什么啊,请师兄帮我解决一下,我的代码是这样的:Private Sub Command1_Click()Dim filename, putfile As String
'设置FTP的地址、协议类型、用户名、密码
Inet1.URL = "ftp://123.56.85.249" 'FTP的地址
Inet1.Protocol = icFTP
Inet1.RemotePort = 21
Inet1.UserName = "mmm"
Inet1.Password = "811118"
Inet1.Execute , "put E:\图片\穴位图\腹部穴位.jpg \腹部穴位.jpg"
Do While Inet1.StillExecuting
DoEvents
Loop
Inet1.Execute , "close"
Inet1.Execute , "quit"
End Sub
请大家不要用自己的机器做服务器测试,用我代码中的这个远程服务器测试,小文件可以成功上传,但1m的图片就不能了,这是为什么啊?