想给系统加一个修改文件扩展名的vbs右键功能（已解决）

窄口牛

结果搜到一个现成的，可能是bat加第三方命令行窗口插件编译在一起搞的。
jyx12345ChangeExtyoujianpiliangxiugaiwenjiankuozhanming.zip (609.67 KB, 下载次数: 73)

2023-2-17 13:05 上传

点击文件名下载附件
下载积分: 无忧币 -2

窄口牛

vbs来自百度用户依梦琴瑶帮助
右键添加修改扩展名.rar (911 Bytes, 下载次数: 20)

2023-10-1 20:34 上传

点击文件名下载附件
下载积分: 无忧币 -2

窄口牛

@yyz2191958 我这个不行？

2313330192

谢谢分享

xhxy2021

谢谢分享，收藏备用

欧卡洗衣

学习了

xhxy2021

mrzhonghb  2023-2-17 18:49


@echo off

感谢大佬，学习一下

mrzhonghb

不够的自己加，觉得多了的删除

@echo off
reg delete "HKCR\*\shell\修改后缀名" /f >nul 2>nul
reg add "HKCR\*\shell\修改后缀名" /f /v "SubCommands" /t REG_SZ /d ""
reg add "HKCR\*\shell\修改后缀名" /f /v "Icon" /t REG_EXPAND_SZ /d "%SystemRoot%\system32\user32.dll,6"

reg add "HKCR\*\shell\修改后缀名\shell\bat" /f /v "Icon" /t REG_EXPAND_SZ /d "%SystemRoot%\system32\user32.dll,4"
reg add "HKCR\*\shell\修改后缀名\shell\bat" /f /v "MUIVerb" /t REG_SZ /d "bat"
reg add "HKCR\*\shell\修改后缀名\shell\bat\command" /f /ve /t REG_SZ /d "cmd /c for /f \"delims=\" %%%%a in (\"%%1\") do rename \"%%%%a\" \"%%%%~na.bat\""

reg add "HKCR\*\shell\修改后缀名\shell\cmd" /f /v "Icon" /t REG_EXPAND_SZ /d "%SystemRoot%\system32\user32.dll,4"
reg add "HKCR\*\shell\修改后缀名\shell\cmd" /f /v "MUIVerb" /t REG_SZ /d "cmd"
reg add "HKCR\*\shell\修改后缀名\shell\cmd\command" /f /ve /t REG_SZ /d "cmd /c for /f \"delims=\" %%%%a in (\"%%1\") do rename \"%%%%a\" \"%%%%~na.cmd\""

reg add "HKCR\*\shell\修改后缀名\shell\reg" /f /v "Icon" /t REG_EXPAND_SZ /d "%SystemRoot%\system32\user32.dll,4"
reg add "HKCR\*\shell\修改后缀名\shell\reg" /f /v "MUIVerb" /t REG_SZ /d "reg"
reg add "HKCR\*\shell\修改后缀名\shell\reg\command" /f /ve /t REG_SZ /d "cmd /c for /f \"delims=\" %%%%a in (\"%%1\") do rename \"%%%%a\" \"%%%%~na.reg\""

reg add "HKCR\*\shell\修改后缀名\shell\ini" /f /v "Icon" /t REG_EXPAND_SZ /d "%SystemRoot%\system32\user32.dll,4"
reg add "HKCR\*\shell\修改后缀名\shell\ini" /f /v "MUIVerb" /t REG_SZ /d "ini"
reg add "HKCR\*\shell\修改后缀名\shell\ini\command" /f /ve /t REG_SZ /d "cmd /c for /f \"delims=\" %%%%a in (\"%%1\") do rename \"%%%%a\" \"%%%%~na.ini\""

reg add "HKCR\*\shell\修改后缀名\shell\wcs" /f /v "Icon" /t REG_EXPAND_SZ /d "%SystemRoot%\system32\user32.dll,4"
reg add "HKCR\*\shell\修改后缀名\shell\wcs" /f /v "MUIVerb" /t REG_SZ /d "wcs"
reg add "HKCR\*\shell\修改后缀名\shell\wcs\command" /f /ve /t REG_SZ /d "cmd /c for /f \"delims=\" %%%%a in (\"%%1\") do rename \"%%%%a\" \"%%%%~na.wcs\""

exit

旁观者清

谢谢分享。

黑中见白

参考一下。。。

黑中见白

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\shell\Item0]
"MUIVerb"="ps1格式互转cmd"
"HasLUAShield"=""
"Icon"="imageres.dll,312"

[HKEY_CLASSES_ROOT\Directory\Background\shell\Item0\command]
@="cmd /c \"cd /d %%~dp0 & if exist *.ps1 (ren *.ps1 *.cmd) else (ren *.cmd *.ps1)\""

abs9668

谢谢分享

captain_g

vbs不熟，楼主可以把下面的脚本通过注册表搞到右键菜单中；

请根据自己实际补缺、完善：

@echo off
setlocal enabledelayedexpansion
set "a=%~1"
set "b=%~n1"
echo.
set /p ext=输入拟用的后缀名字符：
for /l %%i in (2 1 5) do set nb=%%i&&call :called
exit

:called
set "c=!a:~-%nb%!"
set "d=%c:~0,1%"
if /i "%d%"=="." REN "%a%" "%b%.%ext%"&& exit
goto :eof

kli

我是在发送到文件夹里放了个
修改后缀.bat

1. @echo off
   
2. echo 输入文件后缀
   
3. set /p houzhui=
   
4. 
   
5. ren %1 "%~n1.%houzhui%"

复制代码

yyz2191958

谢谢分享