vb上传下载控件Inet-FTP使用大全

http://blog.sina.com.cn/s/blog_7a44d60901012m8j.html

1、利用Inet控件上传文件

　　

　　 格式：inet1.execute , "put 本地文件 远程文件"

　　

　　范例：

　　

　　'初始化Inet控件

　　Inet1.Protocol = icFTP

　　Inet1.URL = "ftp://u0501901.k1.13939.org"

　　Inet1.RemotePort = 21

　　Inet1.UserName = "u0501901"

　　Inet1.Password = "xxx"

　　

　　Label3.Caption = "正在上传....."

　　

　　'先关闭当前的数据库存连接

　　cn.Close

　　

　　Inet1.Execute , "put" & " " & App.Path & "\vbhelp.mdb" & " " & "/vbhelp/vbhelp.mdb"

　　

　　Do While Inet1.StillExecuting

　　 DoEvents

　　Loop

　　Label3.Caption = "上传成功"

　　

　　'重新连接数据库

　　dbconnect

　　 

　　 2、利用Inet控件下载文件

　　

　　格式： inet1.execute , "get 远程文件 本地文件"，注意空格

　　

　　 '初始化INET1控件

　　Inet1.Protocol = icFTP

　　Inet1.URL = "ftp://u0501901.k1.13939.org"

　　Inet1.RemotePort = 21

　　Inet1.UserName = "u0501901"

　　Inet1.Password = "xxx"

　　

　　Label3.Caption = "正在下载...."

　　

　　'格式： inet1.execute , "get 远程文件 本地文件"，注意空格

　　Inet1.Cancel

　　Inet1.Execute , "GET /vbhelp/vbhelp.mdb c:\temp\vbhelp.mdb"

　　Do While Inet1.StillExecuting

　　 DoEvents

　　Loop

　　

　　label3.caption="下载成功"

　　

　　 3、利用INET控件建立远程的文件夹

　　

　　Inet1.AccessType = icUseDefault

　　Inet1.RemotePort = 21

　　Inet1.Protocol = icFTP

　　Inet1.URL = "u0711084.k1.13939.org"

　　Inet1.UserName = "u0711084"

　　Inet1.Password = "xxx"

　　

　　Inet1.Execute , "mkdir vbtest"

　　Do While Inet1.StillExecuting

　　 DoEvents

　　Loop

　　

　　Inet1.Execute , "close"

　　Inet1.Execute , "quit"

　　MsgBox "成功建立文件夹"

　　

　　 4、利用INET控件删除远程文件夹

　　

　　 方法跟建立文件夹一样，删除命令为rmdir，但只能删除空目录，删除文件用delete

　　(本文章出自：http://www.pyxsj.com)