VBS如何复制指定目录里指定范围内的文件到其他目录？

mingjianko · 发表于 2016-4-19 17:22:06

本帖最后由 pcl_test 于 2016-4-19 19:45 编辑

D盘1号文件夹里面有1000个文件，我想把D盘1号文件夹里面200至800之间的全部文件复制到E盘2号文件夹里面
哪位大神帮忙写一下啊。

mingjianko · 发表于 2016-4-19 18:15:05

这个问题好像很难啊，没人回答

Nsqs · 发表于 2016-4-19 18:34:07

set fso=createobject("scripting.filesystemobject")
l=array(200,800)
for each File in fso.getfolder("d:\1号").files
count=count+1:if count>=l(0) and count<=l(1) then fso.copyfile file,"E:\2号"
next

复制代码

mingjianko · 发表于 2016-4-19 18:49:49

'我的D:\测试，文件夹里面的00001至00100，一共100文件，后缀是TXT。
'我想把00020至00040，TXT文件，复制到D:\测试\2号，可是提示错误
set fso=createobject("scripting.filesystemobject")
l=array(00020,00040)
for each File in fso.getfolder("D:\测试").files
count=count+1:if count>=l(0) and count<=l(1) then fso.copyfile file,"D:\测试\2号"
next

mingjianko · 发表于 2016-4-19 18:54:00

我的系统是WIN7--64位
错误提示

CrLf · 发表于 2016-4-19 19:28:45

回复 5# mingjianko

噗，没权限怪谁...

mingjianko · 发表于 2016-4-19 19:34:03

谁能帮忙解决一下啊，哪位大神，帮忙啊，我是新手，我先在此感谢各位大神

mingjianko · 发表于 2016-4-19 21:04:02

能否加入复制的文件类型代码

mingjianko · 发表于 2016-4-19 21:07:41

比如是TXT类型或是PNG类型

pcl_test · 发表于 2016-4-19 23:42:47

回复 9# mingjianko

举个栗子

'列举当前目录下指定类型的文件
Set fso = CreateObject("scripting.filesystemobject")
Set files = fso.GetFolder(".").Files
For Each file In files
ext = LCase(fso.GetExtensionName(file))
Select Case ext
Case "txt","png" '指定扩展名（文件类型）
f = f & file &vbCrLf
End Select
Next
Msgbox f

复制代码

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

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

[问题求助] VBS如何复制指定目录里指定范围内的文件到其他目录？

评分

评分

评分

浏览过的版块