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

mingjianko

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

pcl_test

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

mingjianko

比如是TXT类型或是PNG类型

mingjianko

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

mingjianko

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

CrLf

回复 5# mingjianko


    噗，没权限怪谁...

mingjianko

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

mingjianko

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

Nsqs

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

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