本帖最后由 duoduo200 于 2022-4-26 15:24 编辑
各位大佬!
在用everthing搜索时候,我把所有要处理的文件搜索出来了,想在上面直接执行。之前的提取文件夹下的内容都可以穿透执行,不用点开文件所在的文件夹再运行bat,非常方便。
qixiaobin大大帮我写了代码,但无法遍历穿透执行。能否像类似图片中删除键一样可以直接穿透执行。(同样不要指定路径,总是搬来搬去)
请各位大佬帮忙修改,是否能遍历到文件所在的文件夹直接执行以下的代码。
不知道我是否阐述清楚,请见谅。谢谢。
[img][/img]- @echo off
- if not "%~1"=="" if not "%~1"=="REM" goto :handle
- REM 管理员权限
- %1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","REM",,"runas",1)(window.close)&exit
- REM 文件夹右键菜单名称,快捷键,图标
- set "menu_name=最大文件删除"
- set "menu_hotkey=Z"
- set "menu_ico="F:\Picture\Data\WIN32.ico""
- REM 没有则添加,有则删除
- reg delete "HKCR\*\shell\%menu_name%" /f 2>nul && (
- echo 删除右键菜单 %menu_name% 成功
- ) || (
- reg add "HKCR\*\shell\%menu_name%" /ve /d "%menu_name%(&%menu_hotkey%)"
- reg add "HKCR\*\shell\%menu_name%" /v "icon" /d "%menu_ico%"
- reg add "HKCR\*\shell\%menu_name%\command" /ve /d "\"%~0\" \"%%1\"" /f
- echo 添加右键菜单 %menu_name% 成功
- )
- pause&exit
- :handle
- if not exist "%~1\" echo ( 文件夹路径无效 & pause&exit )
- setlocal enabledelayedexpansion
- set n=0
- for /f "delims=" %%a in ('dir /s /b /a-d') do if %%~za gtr !n! (set n=%%~za&set filename=%%a)
- del "%filename%"
- del /s /q *.cue
- exit
复制代码
|