[共享]使用Wininet的VBA FTP操作的类模块

泓()

是的 、、
如果 "New_" & ThisWorkbook.Name 可以的话 问题也同样解决了 谢谢

cjh-01

如何使用,请详细说明，需要另外安装服务器吗？

winland

原帖由 cjh-01 于 2009-10-3 15:10 发表
如何使用,请详细说明，需要另外安装服务器吗？

里面已经有一些简单的示例了。
FTP服务器网络上很多。当然如果你自己试验的话，可以安装FTP服务器，例如Filezilla Server。

余瑞龙

If cF.OpenConnection("127.0.0.1", "xfwen", "abc") = False Then '请问服务器上有下一级目录时怎么修改这一句

彭希仁

cF.SetFTPDirectory "目录"

zyg365

无需那么复杂：

Private Sub CommandButton1_Click()
'On Error Resume Next
Inet1.URL = "ftp://*.*.*.*/"'IP地址
Inet1.UserName = "***"    'username
Inet1.Password = "***"                  'password
Inet1.Execute , "put C:\123.txt htdocs/myuser/456.txt" '上传文件
'Inet1.Execute , "get htdocs/myuser/456.txt C:\12jj3.txt" '下载文件
MsgBox "Upload done!"
End Sub

'首先引用到microsoft internet  control
'添加控件microsoft internet transfer control

'Put是上传 get是下载——测试成功

zyg365

无需那么复杂：

Private Sub CommandButton1_Click()
'On Error Resume Next
Inet1.URL = "ftp://*.*.*.*/"'IP地址
Inet1.UserName = "***"    'username
Inet1.Password = "***"                  'password
Inet1.Execute , "put C:\123.txt htdocs/myuser/456.txt" '上传文件
'Inet1.Execute , "get htdocs/myuser/456.txt C:\12jj3.txt" '下载文件
MsgBox "Upload done!"
End Sub

'首先引用到microsoft internet  control
'添加控件microsoft internet transfer control

'Put是上传 get是下载——测试成功

nokia4321

如何添加控件microsoft internet transfer control
？控件里没有呢！

nokia4321

1.rar (11.02 KB, 下载次数: 182)

2009-11-28 14:32 上传

点击文件名下载附件

出现这个错误！

nokia4321

SOLARIS get file 是压缩格式的为什么到XP上打不开，文件损坏！