hitme批处理集合

               (echo.-----------------------------------                         echo.^</br^>                         echo.^<a href="!m!\%%i"^>"!m!\%%i"^</a^>                         echo.^</br^>                         echo.^</br^>)>>list.htm                        for /f "tokens=1-5* delims=: " %%a in ('dir "!m!\%%i"            /ad/tc/o-d^|more +5^|findstr /v /c:"<DIR>          ."^|findstr /n            "."^|findstr /r /b "!var!"                                      ') do (                                if "%%f" neq ""    (                                >>list.htm echo.^<a href="!m!\%%i\%%f"^>%%a:           %%b %%c:%%d    %%f^</a^>                               >>list.htm echo.^</br^>)                       )            )            start list.htm            endlocal            goto:eof            :syntax            cls            echo.            echo.T_ls.cmd            echo.            echo.written by hitme    2005.9.3            echo.            echo.用法:            echo.    t_ls /top数量 目录名            echo.            echo.例如:            echo.    t_ls c:windows            echo.    t_ls /20 c:            echo.            T_ls-1.rar 27.             renx.rar 28.             今天格了盘，忘了备绿色/准绿色程序的快截方式，目录进进出出实在烦            explorer搜索*.exe，右键拖出快捷方式，受到非入口exe的干扰，迷眼睛啊            想办法呀，想办法呀，cmd滤一下            两个策略:           1,枚举路径，如本层路径下存在有exe文件，则不深入到下一层           2,滤出上次访问时间最新的exe文件,就当它是入口吧，眼睛是我们宝贵的辩识           力量           偶然发现的好处:           1.发掘出了几个压箱底的东东           2.如本身有较好的分类，稍改下cmd，也能实现lnk的自动分类           @echo off           echo.           echo.           echo.批量跑出程序的快捷方式.cmd by hitme 2005.5.11           echo.           echo.稍等...           :P1           ::***********************************************************           ::#列表路径           ::#滤镜1:路径下存在有exe文件           ::#滤镜1:枚举路径，如本层路径下存在有exe文件，则不深入到下一层           ::***********************************************************           setlocal ENABLEDELAYEDEXPANSION           for /f "delims=" %%i in ('dir /s/b *.exe ^| findstr /v /i           "shortcut\.exe$"') do (           find "%%~dpi" tmp.txt>nul || (                 echo %%~dpi | find "!n!">nul || (                          echo %%~dpi>>tmp.txt                          set n=%%~dpi                          )                    )           )           endlocal           :P2           ::***********************************************************           ::#以P1路径列表为原料，继续加工           ::#过滤上次访问时间最新的exe文件           ::***********************************************************           for /f "delims=" %%i in (tmp.txt) do (                            dir /ta "%%i*.exe" | sort /r | findstr /n "." |            findstr /r "^1:">>tmp1.txt            )            :P3            ::***********************************************************            ::#同行合并P1,P2=>list.txt            ::***********************************************************            set /a N1=0            for /f %%i in (tmp.txt) do set /a N1+=1            for /l %%a in (1,1,%N1%) do (            for /f "tokens=1* delims=:" %%i in ('findstr /n "." tmp.txt            ^|findstr /r "^%%a:"') do set dir=%%j            for /f "tokens=3*" %%i in ('findstr /n "." tmp1.txt ^|findstr /r            "^%%a:"') do set filename=%%j            setlocal ENABLEDELAYEDEXPANSION            echo !dir!!filename!            echo !dir!!filename!>>list.txt            endlocal            )            :shortcut            ::***********************************************************            ::#依据list.txt路径列表，创建link            ::***********************************************************            pause            for /f "delims=" %%i in (list.txt) do (            shortcut -d %%~dpi "%%i"            )            :clean            ::***********************************************************            ::#打扫卫生            ::***********************************************************            del tmp*.txt list.txt 2>nul            creat_shortcut.rar 29. n            copy自yesterday.vbs            搞不明白如何将vbs变量传递给cmd变量，算了，用            for...('cscript.exe..)..来取了            用法:cmd下            del_day 5            删除文件修改时间为5天前的文件，测试，删除操作务必谨慎            @echo off            >t_day.vbs  echo ' Yesterday.vbs,  Version 1.01            >>t_day.vbs echo '            >>t_day.vbs echo ' Written by Rob van der Woude            >>t_day.vbs echo ' http://www.robvanderwoude.com            >>t_day.vbs echo '            >>t_day.vbs echo ' Calculate yesterday's date            >>t_day.vbs echo    dtmYesterday = DateAdd("d",-%1,Date)            >>t_day.vbs echo '            >>t_day.vbs echo ' Get yesterday's year            >>t_day.vbs echo    strYear      = DatePart("yyyy",dtmYesterday)            >>t_day.vbs echo '            >>t_day.vbs echo ' Get yesterday's month, add leading zero if            necessary            >>t_day.vbs echo    If DatePart("m",dtmYesterday) ^< 10 Then            >>t_day.vbs echo    strMonth = 0 ^& DatePart("m",dtmYesterday)            >>t_day.vbs echo    Else            >>t_day.vbs echo    strMonth = DatePart("m",dtmYesterday)                      >>t_day.vbs echo    End If            >>t_day.vbs echo '            >>t_day.vbs echo ' Get yesterday's day, add leading zero if            necessary             >>t_day.vbs echo    If DatePart("d",dtmYesterday) ^< 10 Then            >>t_day.vbs echo   strDay = 0 ^& DatePart("d",dtmYesterday)                   >>t_day.vbs echo    Else            >>t_day.vbs echo   strDay = DatePart("d",dtmYesterday)                       >>t_day.vbs echo    End If            >>t_day.vbs echo '            >>t_day.vbs echo ' Format output for yesterday            >>t_day.vbs echo   strYest = strYear ^& strMonth ^& strDay            >>t_day.vbs echo '            >>t_day.vbs echo ' echo            >>t_day.vbs echo Wscript.echo( strYest )            @echo on            for /f "delims=" %%i in ('cscript.exe //nologo t_day.vbs') do set            t_day=%%i            setlocal ENABLEDELAYEDEXPANSION            for /r %%i in (*.*) do set c_day=%%~ti && if            "!c_day:~0,2!!c_day