VB链接到ftp，并传送文件，自动覆盖原有文件

Question

客户端当前程序目录里有个文件夹“abc”，ftp的ip是1.2.3.4，用户名user，密码123，ftp空间根目录下有个web目录，web进去后有个文件夹“abc”，现在想把电脑上的这个“abc”上传到这个ftp空间,直接替换掉原有的这个“abc”，自动覆盖掉，用VB6.0 应该怎么写 ，如何实现，用inet可以吗？写一下代码

Answer 1

请参考,采纳!谢谢!

1,利用Inet控件上传文件

格式: Inet1.Execute , "put 本地文件 远程文件"

范例:

'初始化Inet控件
Inet1.Protocol = icFTP
Inet1.url = "ftp://u0501901.k1.13939.org"
Inet1.RemotePort = 21
Inet1.UserName = "u0501901"
Inet1.Password = "750531179574"

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 = "750531179574"

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 = "750531179574"

Inet1.Execute , "mkdir vbtest"
Do While Inet1.StillExecuting
DoEvents
Loop

Inet1.Execute , "close"
Inet1.Execute , "quit"
MsgBox "成功建立文件夹"

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

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

追问

你的代码没复制全，我想知道cn是什么

追答

'先关闭当前的数据库存连接
cn.Close 这句可以不要的