中国DOS联盟

在目录下有按照日期创建的文件，如2006-12-21-8***这样的一些文件，请问怎么根据文件名的日期生成一个文件夹，然后把对应日期的文件全部移动到这个文件夹里面

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

　　请问那三个星号代表 后缀名 还是 文件名的一部分+后缀名 ？

***代表的是文件名的一部分，扩展名都是rar
截取文件名中的日期就可以了。

　　以下为演示代码，如果可行，请将最后两个 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

这个call我还是没有学会~~~>_<~~~

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

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

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

呵呵，就是这个用不好。

'可以把当前目录下的所有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 ]

谢谢楼上的兄弟的回复，代码可以执行！可以达到预想的效果
太崇拜了哈