[求助]如何用VBA复制局域网服务器上的文件

dlsky18 · 发表于 2006-12-29 18:43:00

本帖最后由作者于 2006-12-29 18:50:53 编辑

如何用VBA复制局域网FTP服务器上的文件到本地机上？请老师解答，谢谢！

fjfhgdwfn · 发表于 2006-12-30 11:37:00

应是VB的东西吧.可以用filecopy

FTP可以映射成本地硬盘.

Dim SourceFile, DestinationFile
SourceFile = "SRCFILE"    ' 指定源文件名。
DestinationFile = "DESTFILE"    ' 指定目的文件名。
FileCopy SourceFile, DestinationFile    ' 将源文件的内容复制到目的文件中。

dlsky18 · 发表于 2006-12-30 20:22:00

请帮看看请帮如下语句，帮修正一下，谢谢！（假如用户名为wdat,密码101）

Sub asd()
Dim SourceFile, DestinationFile
SourceFile = "ftp://wdata:101@127.0.0.1/aaa.xls" ' 指定源文件名。
DestinationFile = "D:\aaa.xls" ' 指定目的文件名。
FileCopy SourceFile, DestinationFile
End Sub

fjfhgdwfn · 发表于 2006-12-31 08:48:00

本帖最后由作者于 2006-12-31 9:30:06 编辑

SourceFile = "ftp://wdata:101@127.0.0.1/aaa.xls" ' 指定源文件名。

应需要真实的地址。如\\192.168.13.201\lgs\04.xls

刚查了下，可以考虑使用inet控件。可

http://vb.lihuasoft.net/showsource.php?id=210

下这个看看了。

mccad · 发表于 2006-12-31 09:38:00

可以试试本身对象模型提供的GetRemoteFile方法：

http://www.mjtd.com/object/acad2004/idh_getremotefile.htm

账号		自动登录	找回密码
密码			注册