Board logo

标题: [已解决]根据文件名移动文件的批处理 [打印本页]

作者: yaoguof     时间: 2006-12-23 10:52    标题: [已解决]根据文件名移动文件的批处理
在目录下有按照日期创建的文件,如2006-12-21-8***这样的一些文件,请问怎么根据文件名的日期生成一个文件夹,然后把对应日期的文件全部移动到这个文件夹里面

Last edited by yaoguof on 2006-12-25 at 03:32 AM ]

作者: namejm     时间: 2006-12-23 10:54
  请问那三个星号代表 后缀名 还是 文件名的一部分+后缀名 ?

作者: yaoguof     时间: 2006-12-24 05:02
***代表的是文件名的一部分,扩展名都是rar
截取文件名中的日期就可以了。

作者: namejm     时间: 2006-12-24 05:17
  以下为演示代码,如果可行,请将最后两个 echo 去掉。

@echo off
for /f "delims=" %%i in ('dir /a-d /b *.rar') do call :copy_ "%%i"
pause
goto :eof

:copy_
set var=%1
echo md %var:~1,10% 2>nul
echo copy %1 %var:~1,10%
goto :eof

作者: ccwan     时间: 2006-12-24 05:29
这个call我还是没有学会~~~>_<~~~

作者: namejm     时间: 2006-12-24 06:17
  call 可以调用一个程序或者批处理内部的某些标签段(或者理解为子过程)。调用程序的时候,调用完毕,会执行下一条语句;调用标签段的时候,要注意要用 goto :eof 来跳出调用,此时的 goto :eof 不能用 exit 来替换,更不能在批处理内部定义 :eof 标签段。

  call 调用的时候,最让人动心的功能是可以带形参,格式为 call 标签名 参数1 参数2 ……,这些参数你可以任意赋值(不管它在被调用的标签段中是否有用),一般是以空格或逗号作为两个参数之间的分隔符。

作者: ccwan     时间: 2006-12-24 06:30
call 调用的时候,最让人动心的功能是可以带形参,格式为 call 标签名 参数1 参数2 ……,这些参数你可以任意赋值(不管它在被调用的标签段中是否有用),一般是以空格或逗号作为两个参数之间的分隔符


呵呵,就是这个用不好。

作者: jmz573515     时间: 2006-12-24 08:30
'可以把当前目录下的所有RAR文件保存到以创建日期命名的文件夹里。(VBS)


Set WshShell = WScript.CreateObject("WScript.Shell")
set fso=createobject("scripting.filesystemobject")
on error resume next
set folder=fso.getfolder(WshShell.CurrentDirectory)
set files=folder.files
for each file in files
if lcase(fso.GetExtensionName(file)) ="rar" then
rq=File.DateLastModified
a=instrrev(rq," ")
if fso.folderexists(left(rq,a-4)) then
fso.movefile file, left(rq,a-4) & "\"
else
fso.createfolder (left(rq,a-4))
fso.movefile file, left(rq,a-4) & "\"
end if
else
end if
next
msgbox "已经将所有RAR文件保存以创建日期命名的文件夹中。",48+4096,"操作完成"


Last edited by jmz573515 on 2006-12-26 at 09:50 AM ]

作者: lxmxn     时间: 2006-12-24 08:52

  不错~

  现在我们要这样: 一个问题,多种脚本(方法)来解决。

作者: yaoguof     时间: 2006-12-25 03:32
谢谢楼上的兄弟的回复,代码可以执行!可以达到预想的效果
太崇拜了哈