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

winsfly

注意不是复制文件夹，原代码如下:

Set objFolderItem = objFolder.Self 
objPath = objFolderItem.Path 
s = MsgBox("使用xiao*sa优化脚本请点击是,不使用脚本或者使用别的脚本点击否", vbOKCancel)
If s = 1 Then set a=createobject("scripting.filesystemobject"):a.copyfile "*.*",objPath & "\cstrike"
复制代码

可是上面这个代码会把当前所有文件都复制到cstrike目录，我的原意只要复制当前目录几个文件即可(1.cfg，2.cfg config.cfg等几个文件)求助怎么改才好...    在弹出对话框后 点击是  就复制这些文件，否就不复制，我不会做if里面嵌套if的语句，求大神给出完整代码呀。

codegay

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

变通能力真差.

pcl_test

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

winsfly

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

winsfly

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

pcl_test

回复 5# winsfly

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