vb 上传文件到指定ftp服务器

采用ezftp控件

FTP.RemoteAddress = 地址

FTP.UserName = 用户名

FTP.Password = 密码

FTP.Connect

FTP.LocalFile = 文件本地地址

FTP.RemoteFile = ftp上的地址

On Error Resume Next

FTP.PutFile

If Err <>0 Then

MsgBox "未能连接到远程服务器，请检测网络", vbExclamation, "注意"

Exit Sub

End If

MsgBox "上传成功", , "成功！"

FTP.Disconnect

1.打印ftp控制数据到文件(ftpcmd.scr)

--

ftpcmd.scr

--

open

服务器的地址

帐号

密码

bin

文件名

disconnect

bye

2.执行下面vb代码Shell

"cmd.exe

/C

FTP.EXE

-i

-s:ftpcmd.scr"

---