批处理之家 - Powered by Discuz! Board

标题: [问题求助] [已解决]高人指点下怎么才能复制VBS自身的下级目录里的文件？ [打印本页]

作者: succeed909 时间: 2015-4-7 21:42 标题: [已解决]高人指点下怎么才能复制VBS自身的下级目录里的文件？

本帖最后由 succeed909 于 2015-4-8 09:53 编辑

Set Fso = CreateObject("Scripting.FileSystemObject")
Dim A,File1,File2
File1 = ""
File2 = ""
A = MsgBox("",3,"") 
If A = 6 Then
Fso.CopyFile File1,File2,True
ElseIf A = 7 Then
Fso.CopyFile File2,File1,True
Else
复制代码

以上的代码只能复制和VBS自身目录下的文件，要怎么更改才能复制VBS自身的下级目录里的文件？

作者: czjt1234 时间: 2015-4-7 22:11

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "d:\test", "e:\"

直接复制文件夹行不行？

作者: succeed909 时间: 2015-4-7 22:18

回复 2# czjt1234

是想复制下级文件夹内的某一文件到另一个文件夹内。

作者: czjt1234 时间: 2015-4-7 22:23

那你的代码直接就可以啊

指定路径和文件名即可

作者: succeed909 时间: 2015-4-7 22:49

回复 4# czjt1234

指定路径不行的！如File1=“ABC\A.TXT"这样就提示找不到文件。

作者: pcl_test 时间: 2015-4-7 23:11

回复 5# succeed909

使用绝对路径或是File1=".\ABC\A.TXT"

作者: succeed909 时间: 2015-4-8 01:22

好的，我早上试试！

作者: succeed909 时间: 2015-4-8 09:54

回复 6# pcl_test

谢谢！

欢迎光临批处理之家 (http://www.bathome.net/)