程序代码 '须一个inet控件和5个按扭 Private Sub Form_Load() Inet1.Protocol = icFTP Inet1.RemoteHost = "174.128.236.185" '服务器地址 Inet1.RemotePort = 21 'FTP端口 Inet1.UserName = 123456 '用户名 Inet1.Password = ** '密码 End Sub Private Sub Command1_Click() '上传文件 Inet1.Execute "", "PUT c:\1.jpg /1.jpg" ri = Inet1.StillExecuting Do While ri ri = Inet1.StillExecuting DoEvents Loop End Sub Private Sub Command2_Click() '(下载)文件 Inet1.Execute "", "GET /1.jpg c:\1.jpg" ri = Inet1.StillExecuting Do While ri ri = Inet1.StillExecuting DoEvents Loop End Sub Private Sub Command3_Click() '删除文件 Inet1.Execute , "delete 1.jpg" Do While Inet1.StillExecuting DoEvents Loop End Sub Private Sub Command4_Click() '删除文件夹(文件夹必须为空) Inet1.Execute , "rmdir abc" Do While Inet1.StillExecuting DoEvents Loop End Sub Private Sub Command5_Click() '新建文件夹 Inet1.Execute , "mkdir abc" Do While Inet1.StillExecuting DoEvents Loop End Sub