Board logo

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

作者: winsfly    时间: 2016-3-22 11:42     标题: 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的语句,求大神给出完整代码呀。
作者: codegay    时间: 2016-3-22 20:51

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

变通能力真差.
作者: pcl_test    时间: 2016-3-22 20:55

  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
复制代码

作者: winsfly    时间: 2016-3-23 08:38

回复 2# codegay
不仅仅只有cfg文件,还有其它文件,如果都是cfg文件,早变通了。
作者: winsfly    时间: 2016-3-23 08:51

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

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

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





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