VB用FTP上传文件的代码

用Inet1
先添加microsoft   internet   transfer   control   6.0


Private   Sub   上传_Click()
                Inet1.URL   =   IP.Text                     ''   "ftp://61.129.102.38/ "
                Inet1.Protocol   =   2
                Inet1.UserName   =   USER.Text       ''   "username "
                Inet1.Password   =   ID.Text           ''   "password "
                Inet1.Execute   ,   "PUT   "   &   "c:11.jpg "   &   "   pathname\22.jpg "
                Do   While   Inet1.StillExecuting
                        DoEvents
                Loop
                MsgBox   "上传完毕! ",   vbInformation,   "提示 "
End   Sub