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

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

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

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

评分人数

    • pcl_test: 勿发笼统无意义的标题PB -4

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

TOP

比如是TXT类型或是PNG类型
1

评分人数

TOP

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

TOP

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

TOP

回复 5# mingjianko


    噗,没权限怪谁...

TOP

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

TOP

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

TOP

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

评分人数

    • mingjianko: 感谢你的帮助,能加个文件类型吗 比如TXT或 ...技术 + 1

TOP

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

TOP

返回列表