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://bbs.bathome.net/) Powered by Discuz! 7.2