批处理之家 - Powered by Discuz! Board

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

作者: mingjianko 时间: 2016-4-19 17:22 标题: VBS如何复制指定目录里指定范围内的文件到其他目录？

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

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

作者: mingjianko 时间: 2016-4-19 18:15

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

作者: Nsqs 时间: 2016-4-19 18:34

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

'我的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

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

作者: CrLf 时间: 2016-4-19 19:28

回复 5# mingjianko

噗，没权限怪谁...

作者: mingjianko 时间: 2016-4-19 19:34

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

作者: mingjianko 时间: 2016-4-19 21:04

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

作者: mingjianko 时间: 2016-4-19 21:07

比如是TXT类型或是PNG类型

作者: pcl_test 时间: 2016-4-19 23:42

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

欢迎光临批处理之家 (http://bbs.bathome.net/)