急需帮助!!!!!!!!!!!!
我在使用NTSVC.ocx编写VB程序。程序中需要实现拷贝局域网中的指定目录下的文件。程序如下:fs.CopyFile "\\10.0.11.102\AppliCaTion\a.dat",C:\WINDOWS\Manager\a.dat",启动服务时报错:路径访问错误。
我将同样的语句放在VB独立程序中运行,可以执行。如果我将此服务中这句话改成本机地址,如
fs.CopyFile "c:\AppliCaTion\a.dat",C:\WINDOWS\Manager\a.dat",文件拷贝成功。求知情着帮我一个忙。这么回事。??????? --------------------编程问答-------------------- CopyFile 不支持远程拷贝,你想拷远程机子上的东西需要使用FTP方法来实现。 --------------------编程问答--------------------
有不同看法,实际上可以的,只是有几个条件需要满足,才能正常 --------------------编程问答-------------------- 不过还是建议用FTP方法来实现 --------------------编程问答-------------------- FTP最佳
FileCopy也可以使用,不过的设置 --------------------编程问答-------------------- 友情Up..............
--------------------编程问答-------------------- Private Sub cmdSave_Click()
Dim fs, f, s
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "\\192.168.1.3\lj\亮剑12.flv", "C:\亮剑12.flv"
End Sub
我测试的没有问题(windows2003)
关键是你要对\\10.0.11.102\AppliCaTion有访问权限,在服务器上设置。
--------------------编程问答-------------------- FTP怎么写,请帮忙。
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "\\192.168.1.3\lj\亮剑12.flv", "C:\亮剑12.flv"
我就是这样写的。我如果不写在这个服务里面,同样的语句是可以执行的。也COPY成功。就是写在这个服务里面,就没法执行。报错是路径不存在。 --------------------编程问答-------------------- 网络路径就是UNC格式,即:\\计算机名\路径
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
' 把myFolder下的所有子目录拷贝到myNewFolder
fs.CopyFolder "\\myMachine\myFolder\*", "C:\myNewFolder"
' 把myFolder中的所有文件拷贝到myNewFolder
fs.CopyFile "\\myMachine\myFolder\*", "C:\myNewFolder"
你不能直接使用CopyFolder,如 fs.CopyFolder "\\myMachine\myFolder", "C:\myNewFolder",这样会出错。 --------------------编程问答-------------------- Private Sub Command1_Click()
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile "\\Wgm-669bd2304c8\SharedDocs\My Pictures\示例图片\WINTER.JPG", "C:\" '拷文件
End Sub --------------------编程问答-------------------- LS的有QQ。直接和你聊吗?你没有明白我的意思。我的qq25114691 --------------------编程问答-------------------- 你要确保资源所在的电脑共享文件是你可以访问的!
补充:VB , 基础类