Board logo

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

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

本帖最后由 succeed909 于 2015-4-8 09:53 编辑
  1. Set Fso = CreateObject("Scripting.FileSystemObject")
  2. Dim A,File1,File2
  3. File1 = ""
  4. File2 = ""
  5. A = MsgBox("",3,"")
  6. If A = 6 Then
  7. Fso.CopyFile File1,File2,True
  8. ElseIf A = 7 Then
  9. Fso.CopyFile File2,File1,True
  10. 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 01:22

好的,我早上试试!
作者: succeed909    时间: 2015-4-8 09:54

回复 6# pcl_test


    谢谢!




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2