关于vba登陆ftp下载文件的问题

scbluehit · 发表于 2007-2-14 16:31

我尝试用这个列子登陆ftp

但是我只能抓到ftp根目录下面的文件比如 ftp://2.11.12.3/

但是在下一级文件目录下面就不能抓到

比如 ftp://2.11.12.3/work/ 下面就抓不到

请问怎么修改？

3zaBDLvH.rar (24.94 KB, 下载次数: 328)

EdgeOfCity · 发表于 2007-2-14 18:09

这种程序很不好调试啊,花了一些时间才找到有效的FTP且文件较小的.

你附件里面的文件没写路径名?

strRemoteFile = "getpath.txt"

试下改成strRemoteFile="work/getpath.txt"

我改成如下,在我这测试通过.

下载ftp://210.34.5.27/pub/英语学习/时尚英语-美式生活.chm

'    strRemoteFile = "getpath.txt"        '这里放你想从FTP下载的文件名
'    If cF.OpenConnection("127.0.0.1", "xfwen", "abc") = False Then
    strRemoteFile = "pub/英语学习/时尚英语-美式生活.chm"        '这里放你想从FTP下载的文件名
    If cF.OpenConnection("210.34.5.27", "", "") = False Then
        GoTo errhandle
    End If
    'If cF.SimpleFTPGetFile("c:\vcd1\" & strRemoteFile, strRemoteFile) = False Then
    If cF.SimpleFTPGetFile("c:\美式生活.chm", strRemoteFile) = False Then
        GoTo errhandle
    End If

winland · 发表于 2007-2-15 00:04

哦，这个是我上次发的。你可以先用SetFTPDirectory来设置目录。

cF.SetModePassive
cF.SetFTPDirectory "YourDir"
strRemoteFile = "getpath.txt"

scbluehit · 发表于 2007-2-15 08:28

winland 兄弟

cF.SetFTPDirectory "YourDir"

your dir 是否等于 work/

就是说我再加一条

cF.SetFTPDirectory "work/"

我试了一下好像不行

2楼的方法我早就试过了不行的

scbluehit · 发表于 2007-2-15 08:42

winland兄弟能留个qq给我吗？

可以跟你讨论一下vb阿~

winland · 发表于 2007-2-15 09:10

用cF.SetFTPDirectory "work",不用加/符号.

我很少用QQ的,办公室也用不了,周末才可以. 周末的时候在告诉你吧.

scbluehit · 发表于 2007-2-15 09:53

还是不行啊

如果有多层的目录怎么写？

比如 work/huj/

cF.SetFTPDirectory "work" "huj"

winland · 发表于 2007-2-15 10:02

昨天晚上我在家用自己的FTP服务器试过没问题的. 多重目录应该像cF.SetFTPDirectory "work/huj"这样. 不过没有确认过.

EdgeOfCity · 发表于 2007-2-15 10:32

QUOTE:

以下是引用scbluehit在2007-2-15 8:28:32的发言：

2楼的方法我早就试过了不行的

请问你做过哪些测试?

2楼FTP上那个文件你能下吗?

EdgeOfCity · 发表于 2007-2-15 10:42

SetDirectory是先把FTP服务器的当前目录切换到你要的目录,再从这个目录下取文件.

有点象Dos下的Copy一样,你不切换目录的话,就要加路径名.

可不可以看下,你用2楼的方法的程序是怎么写的?

		自动登录	找回密码
密码			免费注册

[求助] 关于vba登陆ftp下载文件的问题

最新热点 /1