灯火互联
管理员
管理员
  • 注册日期2011-07-27
  • 发帖数41778
  • QQ
  • 火币41290枚
  • 粉丝1086
  • 关注100
  • 终身成就奖
  • 最爱沙发
  • 忠实会员
  • 灌水天才奖
  • 贴图大师奖
  • 原创先锋奖
  • 特殊贡献奖
  • 宣传大使奖
  • 优秀斑竹奖
  • 社区明星
阅读:2532回复:0

批处理资源管理器工具

楼主#
更多 发布于:2012-08-31 19:27




复制下面代码。保存在记事本。扩展名修改为bat

复制代码
@echo off;setlocal enabledelayedexpansion::Batch Resource Management Program V1.0.1set "input=%1"set "rmppath=%~dp0"set H1=%rmppath%:rmpMenuPreview 控制台clstitle %cd%set rmpvar=echo;历史记录:!H1!  !H2!  !H3!echo;=============================================================================::echo;打开【O】新建【W】删除【D】重命名【M】属性【R】创建快捷方式【S】关闭【C】::echo;编辑【】剪切【】复制【】粘贴【】移动【】::echo;查看【】图标【】排列【】刷新【】选择【】搜索【】查看【】收藏【】设置【】echo;定位【PS】历史记录【H】帮助【Help】echo;=============================================================================set num=0for /f "tokens=*" %%a in ('dir /b') do set /a num+=1&echo;    !num!  %%a;set "rmpvar=%%a"if "!rmpvar!"=="" echo;    ^<空文件夹^>echo;set input=set inputs=set /p "input=    请输入:"if "%input%"=="" goto rmpMenuPreviewif exist "%input%" cd /d "%input%";call :rmpHistory "%input%"if /i "%input%"=="Help" call :rmpHelp;goto rmpMenuPreviewif /i "%input:~0,1%"=="H" if "%input:~2,2%"=="" call :rmpHistoryBack;goto rmpMenuPreviewfor /f "tokens=1,2" %%a in ("%input%") do if "%%b"=="" (set input=%%a) else (set input=%%a;set inputs=%%b)echo;call :rmpLinePositionecho;echo;=============================================================================echo;    ^<The End^>pause>nulgoto rmpMenuPreview:rmpLinePosition 处理类型set num=0for /f "tokens=*" %%a in ('dir /b') do set /a num+=1;if !num!==!input! (    echo;    !num!  "%%~a"    echo;=============================================================================    if exist "%%~a" (        if /i %%~xa==.txt  more "%%~a"        if /i %%~xa==.bat  more "%%~a"        if /i %%~xa==.cmd  more "%%~a"        if exist "%%~a" (            dir /b /a:d "%%~a">nul 2>nul;;((cd /d "%%~a";call :rmpHistory "%cd%\%%~a";if not "!inputs!"=="" call :rmpOperationOption "%cd%\%%~na");goto rmpMenuPreview)||(if not "!inputs!"=="" (call :rmpOperationOption "%cd%\%%~a") else (start "" "%%~a"))        )    ) else echo;    "%%~a")goto :eof:rmpOperationOption 操作设置echo "%cd%"  "%~1"if /i "!inputs!"=="PS" Explorer /select,"%~1"goto :eof:rmpHelp 帮助信息clsecho;=============================================================================echo;echo;    基本用法:输入命令或序号执行相应内容echo;    复合操作【数字+操作】如定位:5 PSecho;    历史操作【H】如:H2echo;echo;=============================================================================pause>nulgoto :eof:rmpHistory 历史记录项目设置for /f %%a in ("%1") do (    set H9=!H8!    set H8=!H7!    set H7=!H6!    set H6=!H5!    set H5=!H4!    set H4=!H3!    set H3=!H2!    set H2=!H1!    set H1=%%~a)goto :eof:rmpHistoryBack 获得历史记录内容set num=0if /i "!input!"=="H" (    echo;&echo;&echo;    历史记录:    echo;    0  %rmppath%  ^<本程序位置^>)for /l %%a in (1,1,9) do (    set /a num+=1    if /i "!input!"=="H" echo;    !num!  !H%%a!    if /i !input!==H%%a cd /d !H%%a!;goto :eof)echo;set num=0set input=set /p "input=    请输入:"if /i "!input!"=="" goto rmpMenuPreviewfor /l %%a in (1,1,9) do (    set /a num+=1    if /i !input!==0 cd /d %rmppath%;goto :eof    if /i !input!==%%a cd /d !H%%a!;goto :eof)goto rmpMenuPreviewtree /fpause



喜欢0 评分0
游客

返回顶部