Board logo

标题: [问题求助] 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

  1. set fso=createobject("scripting.filesystemobject")
  2. l=array(200,800)
  3. for each File in fso.getfolder("d:\1号").files
  4. count=count+1:if count>=l(0) and count<=l(1) then fso.copyfile file,"E:\2号"
  5. 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


    举个栗子
  1. '列举当前目录下指定类型的文件
  2. Set fso = CreateObject("scripting.filesystemobject")
  3. Set files = fso.GetFolder(".").Files
  4. For Each file In files
  5.     ext = LCase(fso.GetExtensionName(file))
  6.     Select Case ext
  7.         Case "txt","png"    '指定扩展名(文件类型)
  8.             f = f & file &vbCrLf
  9.     End Select
  10. Next
  11. Msgbox f
复制代码





欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2