找回密码
 注册
搜索
[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
查看: 18748|回复: 8

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

[复制链接]
发表于 2015-4-7 21:42:09 | 显示全部楼层 |阅读模式
本帖最后由 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自身的下级目录里的文件?

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2015-4-7 22:11:38 | 显示全部楼层
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFolder "d:\test", "e:\"

直接复制文件夹行不行?
 楼主| 发表于 2015-4-7 22:18:05 | 显示全部楼层
回复 2# czjt1234


  是想复制下级文件夹内的某一文件到另一个文件夹内。
发表于 2015-4-7 22:23:35 | 显示全部楼层
那你的代码直接就可以啊

指定路径和文件名即可
 楼主| 发表于 2015-4-7 22:49:21 | 显示全部楼层
回复 4# czjt1234


    指定路径不行的!如File1=“ABC\A.TXT"这样就提示找不到文件。
发表于 2015-4-7 23:11:01 | 显示全部楼层
回复 5# succeed909

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

评分

参与人数 1技术 +1 收起 理由
Batcher + 1 乐于助人

查看全部评分

 楼主| 发表于 2015-4-8 01:22:18 | 显示全部楼层
好的,我早上试试!
 楼主| 发表于 2015-4-8 01:22:55 | 显示全部楼层
好的,我早上试试!
 楼主| 发表于 2015-4-8 09:54:42 | 显示全部楼层
回复 6# pcl_test


    谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 14:29 , Processed in 0.018927 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表