bat Windows批量文件处理

衬旅, 2019-07-15 10:50:22
使用bat批量移动文件程序移动指定数量文件到指定文件夹,比如,现有A文件夹图片100张,需要将前20张图片移动到B文件夹,求大神指教
...全文
99 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
衬旅, 2019-07-16
  • 打赏
  • 举报
回复
引用 1 楼 milaoshu1020的回复:
bat可能比较困难,简单点的话可以用vbs:

set fso = createobject("scripting.filesystemobject")
curdir = fso.getparentfoldername(wscript.scriptfullname)
dirA = fso.buildpath(curdir,"A")
dirB = fso.buildpath(curdir,"B")
for each objfile in fso.getfolder(dirA).files
if lcase(fso.getextensionname(objfile.name)) = "jpg" then
objfile.move fso.buildpath(dirB,objfile.name)
count = count + 1
if count >= 20 then
exit for
end if
end if
next
msgbox "done!"

运行示例:

下载地址:
链接:https://pan.baidu.com/s/1B5hCTrcjer1x4s6lIWUcjQ
提取码:jcit
那个我想问一下,这个是复制的,如果剪切的话需要改一下什么
衬旅, 2019-07-16
  • 打赏
  • 举报
回复
我也觉得有点难,非常感谢
milaoshu1020 2019-07-16
  • 打赏
  • 举报
回复
bat可能比较困难,简单点的话可以用vbs:

set fso = createobject("scripting.filesystemobject")
curdir = fso.getparentfoldername(wscript.scriptfullname)
dirA = fso.buildpath(curdir,"A")
dirB = fso.buildpath(curdir,"B")
for each objfile in fso.getfolder(dirA).files
if lcase(fso.getextensionname(objfile.name)) = "jpg" then
objfile.move fso.buildpath(dirB,objfile.name)
count = count + 1
if count >= 20 then
exit for
end if
end if
next
msgbox "done!"

运行示例:

下载地址:
链接:https://pan.baidu.com/s/1B5hCTrcjer1x4s6lIWUcjQ
提取码:jcit
衬旅, 2019-07-16
  • 打赏
  • 举报
回复
引用 4 楼 milaoshu1020的回复:
这个是移动的,不是复制的啊;
好的好的,我看错了,抱歉抱歉
milaoshu1020 2019-07-16
  • 打赏
  • 举报
回复
这个是移动的,不是复制的啊;

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧