vbs如何复制当前文件夹里的多个指定文件到其他目录？

winsfly · 发表于 2016-3-22 11:42:51

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

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

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 · 发表于 2016-3-22 20:51:24

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

变通能力真差.

pcl_test · 发表于 2016-3-22 20:55:23

复制代码

winsfly · 发表于 2016-3-23 08:38:23

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

winsfly · 发表于 2016-3-23 08:51:50

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

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

pcl_test · 发表于 2016-3-23 20:53:36

回复 5# winsfly

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

复制代码

		自动登录	找回密码
密码			注册

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

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