程序代码 '须一个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