[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] vbs如何复制当前文件夹里的多个指定文件到其他目录?

本帖最后由 winsfly 于 2016-3-24 13:50 编辑

注意不是复制文件夹,原代码如下:
  1. Set objFolderItem = objFolder.Self
  2. objPath = objFolderItem.Path
  3. s = MsgBox("使用xiao*sa优化脚本请点击是,不使用脚本或者使用别的脚本点击否", vbOKCancel)
  4. If s = 1 Then set a=createobject("scripting.filesystemobject"):a.copyfile "*.*",objPath & "\cstrike"
复制代码
可是上面这个代码会把当前所有文件都复制到cstrike目录,我的原意只要复制当前目录几个文件即可(1.cfg,2.cfg config.cfg等几个文件)求助怎么改才好...    在弹出对话框后 点击是  就复制这些文件,否就不复制,我不会做if里面嵌套if的语句,求大神给出完整代码呀。

回复 5# winsfly
  1. if objfile.Name="1.cfg" or objfile.Name="2.cfg" or objfile.Name="config.cfg" then fso.copyfile objfile, "新的路径"
复制代码

TOP

本帖最后由 winsfly 于 2016-3-23 08:54 编辑

回复 3# pcl_test
在这一个if语句里面怎么复制那么多文件呢?每个命令像bat一样加&&吗?我的原意:就是当对话框弹出,我选择是,程序就复制那些文件到cstrike目录下。

TOP

回复 2# codegay
不仅仅只有cfg文件,还有其它文件,如果都是cfg文件,早变通了。

TOP

  1. set fso = createobject("scripting.filesystemobject")
  2. files = split("1.cfg|2.cfg|config.cfg", "|")
  3. for each file in files
  4.     if fso.FileExists(file) then fso.copyfile file,"新的路径"
  5. next
复制代码

TOP

改a.copyfile "*.cfg"试试.

变通能力真差.
去学去写去用才有进步。安装python3代码存为xx.py 双击运行或右键用IDLE打开按F5运行

TOP

返回列表