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