写了个脚本，在 Windows 文件右键菜单中添加「重命名为 .zip」

很多人在通过网盘分享文件时，会将压缩包改名或伪装为其他格式，如 .jpg .mp4 .pdf .7删z，DDDD。

解压时要手动改后缀名，一个两个还好，但多了就有点烦，专门开个重命名软件又有些重。

于是写了个脚本，在 Windows 文件右键菜单中添加「重命名为 .zip」，一键把选中文件的后缀改成 .zip。

就一个 bat 脚本，双击运行会弹出对话框：

带仓库链接好像要发推广帖？那直接贴代码吧，自己创建 文件右键菜单添加「重命名为 .zip」.bat：

@echo off

setlocal EnableExtensions

title Rename to .zip



:: ASCII-only batch. All Chinese UI/registry text is built with VBS ChrW,

:: so cmd.exe code page cannot garble it. Works on XP / Vista / 7 / 8 / 10 / 11.

:: HKCU only -- Administrator rights not required.

:: Windows 11: item is under "Show more options" / Shift+F10.



call :FIND_APPDIR

set "VBS=%APPDIR%\rename-to-zip.vbs"

set "SETUP=%TEMP%\rename-to-zip-setup.vbs"



if not exist "%APPDIR%" mkdir "%APPDIR%"

if not exist "%APPDIR%" (

    echo [ERROR] Cannot create: %APPDIR%

    pause

    goto :EOF

)



call :WRITE_HELPER

if not exist "%VBS%" (

    echo [ERROR] Cannot write helper script.

    pause

    goto :EOF

)



call :WRITE_SETUP

if not exist "%SETUP%" (

    echo [ERROR] Cannot write setup script.

    pause

    goto :EOF

)



wscript.exe //nologo "%SETUP%" "%APPDIR%"

del "%SETUP%" >nul 2>&1

goto :EOF



:FIND_APPDIR

set "APPDIR="

if defined LOCALAPPDATA if exist "%LOCALAPPDATA%\" set "APPDIR=%LOCALAPPDATA%\RenameToZip"

if not defined APPDIR if exist "%USERPROFILE%\Local Settings\Application Data\" set "APPDIR=%USERPROFILE%\Local Settings\Application Data\RenameToZip"

if not defined APPDIR if exist "%USERPROFILE%\AppData\Local\" set "APPDIR=%USERPROFILE%\AppData\Local\RenameToZip"

if not defined APPDIR if exist "%APPDATA%\" set "APPDIR=%APPDATA%\RenameToZip"

if not defined APPDIR set "APPDIR=%TEMP%\RenameToZip"

goto :EOF



:WRITE_HELPER

> "%VBS%" (

echo Option Explicit

echo Dim fso, i, path, folder, base, dest, n, file

echo Set fso = CreateObject("Scripting.FileSystemObject"^)

echo For i = 0 To WScript.Arguments.Count - 1

echo   path = WScript.Arguments(i^)

echo   If fso.FileExists(path^) Then

echo     Set file = fso.GetFile(path^)

echo     folder = fso.GetParentFolderName(path^)

echo     base = fso.GetBaseName(path^)

echo     If Not LCase(fso.GetExtensionName(path^)^) = "zip" Then

echo       dest = fso.BuildPath(folder, base ^& ".zip"^)

echo       n = 2

echo       Do While fso.FileExists(dest^)

echo         dest = fso.BuildPath(folder, base ^& "_" ^& n ^& ".zip"^)

echo         n = n + 1

echo       Loop

echo       On Error Resume Next

echo       file.Name = fso.GetFileName(dest^)

echo       If Err.Number ^<^> 0 Then

echo         MsgBox "Rename failed:" ^& vbCrLf ^& path ^& vbCrLf ^& vbCrLf ^& Err.Description, 48, "Rename to .zip"

echo         Err.Clear

echo       End If

echo       On Error GoTo 0

echo     End If

echo   End If

echo Next

)

goto :EOF



:WRITE_SETUP

> "%SETUP%" (

echo Option Explicit

echo Dim sh, fso, reg, appdir, helper, cmd, icon

echo Dim title, ask, okIns, okUn, choice

echo Const HKCU = ^&H80000001

echo.

echo Set sh = CreateObject("WScript.Shell"^)

echo Set fso = CreateObject("Scripting.FileSystemObject"^)

echo.

echo title = ChrW(^&H91CD^) ^& ChrW(^&H547D^) ^& ChrW(^&H540D^) ^& ChrW(^&H4E3A^) ^& " .zip"

echo.

echo ask = title ^& vbCrLf ^& vbCrLf

echo ask = ask ^& ChrW(^&H5C06^) ^& ChrW(^&H5728^) ^& ChrW(^&H6587^) ^& ChrW(^&H4EF6^)

echo ask = ask ^& ChrW(^&H53F3^) ^& ChrW(^&H952E^) ^& ChrW(^&H83DC^) ^& ChrW(^&H5355^)

echo ask = ask ^& ChrW(^&H4E2D^) ^& ChrW(^&H6DFB^) ^& ChrW(^&H52A0^) ^& ChrW(^&H300C^) ^& title ^& ChrW(^&H300D^) ^& ChrW(^&H3002^)

echo ask = ask ^& vbCrLf ^& vbCrLf

echo ask = ask ^& ChrW(^&H662F^) ^& " = " ^& ChrW(^&H5B89^) ^& ChrW(^&H88C5^) ^& vbCrLf

echo ask = ask ^& ChrW(^&H5426^) ^& " = " ^& ChrW(^&H5378^) ^& ChrW(^&H8F7D^) ^& vbCrLf

echo ask = ask ^& ChrW(^&H53D6^) ^& ChrW(^&H6D88^) ^& " = " ^& ChrW(^&H9000^) ^& ChrW(^&H51FA^)

echo.

echo okIns = ChrW(^&H5B89^) ^& ChrW(^&H88C5^) ^& ChrW(^&H6210^) ^& ChrW(^&H529F^) ^& ChrW(^&H3002^) ^& vbCrLf ^& vbCrLf

echo okIns = okIns ^& ChrW(^&H8BF7^) ^& ChrW(^&H53F3^) ^& ChrW(^&H952E^) ^& ChrW(^&H70B9^) ^& ChrW(^&H51FB^)

echo okIns = okIns ^& ChrW(^&H4EFB^) ^& ChrW(^&H610F^) ^& ChrW(^&H6587^) ^& ChrW(^&H4EF6^) ^& ChrW(^&HFF0C^)

echo okIns = okIns ^& ChrW(^&H9009^) ^& ChrW(^&H62E9^) ^& ChrW(^&H300C^) ^& title ^& ChrW(^&H300D^) ^& ChrW(^&H3002^)

echo okIns = okIns ^& vbCrLf ^& vbCrLf

echo okIns = okIns ^& "Windows 11 " ^& ChrW(^&H8BF7^) ^& ChrW(^&H4F7F^) ^& ChrW(^&H7528^) ^& ChrW(^&H300C^)

echo okIns = okIns ^& ChrW(^&H663E^) ^& ChrW(^&H793A^) ^& ChrW(^&H66F4^) ^& ChrW(^&H591A^) ^& ChrW(^&H9009^) ^& ChrW(^&H9879^)

echo okIns = okIns ^& ChrW(^&H300D^) ^& ChrW(^&H6216^) ^& " Shift + " ^& ChrW(^&H53F3^) ^& ChrW(^&H952E^) ^& ChrW(^&H3002^)

echo.

echo okUn = ChrW(^&H5DF2^) ^& ChrW(^&H5378^) ^& ChrW(^&H8F7D^) ^& ChrW(^&H300C^) ^& title ^& ChrW(^&H300D^)

echo okUn = okUn ^& ChrW(^&H53F3^) ^& ChrW(^&H952E^) ^& ChrW(^&H83DC^) ^& ChrW(^&H5355^) ^& ChrW(^&H3002^)

echo.

echo If WScript.Arguments.Count ^< 1 Then

echo   WScript.Quit 1

echo End If

echo appdir = WScript.Arguments(0^)

echo.

echo choice = MsgBox(ask, 3 + 32, title^)

echo If choice = 2 Then

echo   WScript.Quit 0

echo End If

echo.

echo If choice = 6 Then

echo   If Not fso.FolderExists(appdir^) Then

echo     fso.CreateFolder appdir

echo   End If

echo   helper = fso.BuildPath(appdir, "rename-to-zip.vbs"^)

echo   If Not fso.FileExists(helper^) Then

echo     MsgBox "Helper script missing.", 16, title

echo     WScript.Quit 1

echo   End If

echo   icon = sh.ExpandEnvironmentStrings("%%SystemRoot%%\system32\zipfldr.dll"^)

echo   cmd = "wscript.exe //nologo """ ^& helper ^& """ ""%%1"""

echo   If Not WriteMenu(True, icon, cmd^) Then

echo     MsgBox "Registry write failed.", 16, title

echo     WScript.Quit 1

echo   End If

echo   MsgBox okIns, 64, title

echo ElseIf choice = 7 Then

echo   Call WriteMenu(False, "", ""^)

echo   On Error Resume Next

echo   If fso.FolderExists(appdir^) Then

echo     fso.DeleteFolder appdir, True

echo   End If

echo   On Error GoTo 0

echo   MsgBox okUn, 64, title

echo End If

echo.

echo Function WriteMenu(doInstall, iconPath, cmdLine^)

echo   Dim key, keyCmd

echo   key = "Software\Classes\*\shell\RenameToZip"

echo   keyCmd = key ^& "\command"

echo   WriteMenu = False

echo   On Error Resume Next

echo   Set reg = GetObject("winmgmts:\\.\root\default:StdRegProv"^)

echo   If Err.Number ^<^> 0 Then

echo     Set reg = Nothing

echo     Err.Clear

echo   End If

echo   If doInstall Then

echo     If Not reg Is Nothing Then

echo       reg.CreateKey HKCU, key

echo       reg.CreateKey HKCU, keyCmd

echo       reg.SetStringValue HKCU, key, "", title

echo       reg.SetStringValue HKCU, key, "Icon", iconPath

echo       reg.SetStringValue HKCU, key, "NeverDefault", ""

echo       reg.SetStringValue HKCU, key, "MultiSelectModel", "Document"

echo       reg.SetStringValue HKCU, keyCmd, "", cmdLine

echo     Else

echo       sh.RegWrite "HKCU\" ^& key ^& "\", title, "REG_SZ"

echo       sh.RegWrite "HKCU\" ^& key ^& "\Icon", iconPath, "REG_SZ"

echo       sh.RegWrite "HKCU\" ^& key ^& "\NeverDefault", "", "REG_SZ"

echo       sh.RegWrite "HKCU\" ^& key ^& "\MultiSelectModel", "Document", "REG_SZ"

echo       sh.RegWrite "HKCU\" ^& keyCmd ^& "\", cmdLine, "REG_SZ"

echo     End If

echo   Else

echo     If Not reg Is Nothing Then

echo       reg.DeleteKey HKCU, keyCmd

echo       reg.DeleteKey HKCU, key

echo     End If

echo     sh.RegDelete "HKCU\" ^& keyCmd ^& "\"

echo     sh.RegDelete "HKCU\" ^& key ^& "\"

echo   End If

echo   If Err.Number = 0 Then

echo     WriteMenu = True

echo   Else

echo     Err.Clear

echo     WriteMenu = True

echo   End If

echo   On Error GoTo 0

echo End Function

)

goto :EOF