[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
本帖最后由 yu2n 于 2017-6-9 22:16 编辑
  1. [code]::DeleteHtmlFiles 刪除文件個數超過100的文件.bat
  2. @echo off
  3. setlocal enabledelayedexpansion
  4. ::設定文件夾位置(默認當前目錄,請自行修改)
  5.   set "wk_dir=D:\"   && rem 演示1,D 盤
  6.   set "wk_dir=%~dp0" && rem 演示2,當前目錄
  7. ::提示信息
  8.   echo.
  9.   echo 警告:
  10.   echo.
  11.   echo     請留意備份文件!
  12.   echo.
  13.   echo     即將刪除目錄 %wk_dir% 中個數超過 100 的htm、html文件。
  14.   echo.
  15.   echo     如需取消操作,請直接關閉本窗口。
  16.   echo.
  17.   set/p "input=> 是否繼續?(Y/N): "
  18.   if not defined input goto :cancel
  19.   if /i "%input%" neq "y" goto :cancel
  20. ::執行操作
  21.   set /a n=0
  22.   for /f "delims=" %%a in ('dir /a/b/s "%wk_dir%\*.htm" 2^>nul') do (
  23.     if /i "%%~xa"==".htm" set /a n+=1
  24.     if /i "%%~xa"==".html" set /a n+=1
  25.     if !n! gtr 100 (
  26.       if /i "%%~xa"==".htm" (
  27.         echo delete %%~a
  28.         echo delete %%~a>>"%wk_dir%\del.log"
  29.         del /q "%%~a"
  30.       )
  31.       if /i "%%~xa"==".html" (
  32.         echo delete %%~a
  33.         echo delete %%~a>>"%wk_dir%\del.log"
  34.         del /q "%%~a"
  35.       )
  36.     )
  37.   )
  38. ::操作完成
  39. :done
  40.   echo.
  41.   echo 操作已完成!
  42.   echo.
  43.   pause
  44.   goto :eof
  45. ::操作取消
  46. :cancel
  47.   echo.
  48.   echo 操作已取消!
  49.   echo.
  50.   pause
  51.   goto :eof
复制代码
凑个热闹。话说楼主付款了吗?没有的话请快点付给4楼,4楼收到了也请吱个声。
『千江有水千江月』千江有水,月映千江;万里无云,万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表