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

succeed909

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

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

直接复制文件夹行不行？

succeed909

回复 2# czjt1234


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

czjt1234

那你的代码直接就可以啊

指定路径和文件名即可

succeed909

回复 4# czjt1234


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

pcl_test

回复 5# succeed909

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

succeed909

好的，我早上试试！

succeed909

好的，我早上试试！

succeed909

回复 6# pcl_test


    谢谢！