☰

第一种选择：

tag-icon • tag-icon windows command-line batch batch-file batch-rename
第一种选择：

抱歉，我问了个菜鸟问题，但我是初学者。我有一个 .bat 文件，它使用 wild 卡将所有文件夹内容转换为 .jpeg，因为内容是空扩展名

@echo off

ren * *.jpeg

为了让它运行，我把 bat 放在我想要更改文件的文件夹中，但它也会自行更改。有没有办法让 .bat 在完成后自毁（自行删除），这样我就可以有一个主 .bat 并将其复制到我需要的地方。

谢谢您的帮助 ：）

答案1

在桌面上创建.BAT 文件

[重命名文件夹中的所有文件.BAT]

ren %1\* *.jpeg

当您需要重命名某个文件夹中的所有文件时，只需将该文件夹拖到此 .BAT 文件上即可。

答案2

  • 因此，您有 2 个选择....

第一种选择：

1）没有必要复制该脚本并粘贴以供稍后执行并自行删除。

2）不需要将此 bat 复制到 .jpeg 所在的任何目标文件夹，只需单击它即可！

<!-- :
@echo off && cls && mode 050,02 && title <nul && title ...\%~nx0
for /f ^tokens^=* %%i in ('%__APPDIR__%cScript.exe "%~dpnx0?.wsf"
')do if "%%i"=="Cancelled" (cd.&echo/Cancelled by %Username%^!!!
) else for %%J in (*)do if /i "%%~xJ"=="" ren "%%~fJ" "%%~nJ.jpeg"
exit /b || goto :EOF
# -->
<job><script language="vbscript">
Option Explicit
Function SelectFolder( myStartFolder )
Dim objFolder, objItem, objShell
    On Error Resume Next
    SelectFolder = vbNull
    Set objShell  = CreateObject( "Shell.Application" )
    Set objFolder = objShell.BrowseForFolder( 0, "Select Folder", 0, myStartFolder )
    If IsObject( objfolder ) Then SelectFolder = objFolder.Self.Path
    Set objFolder = Nothing
    Set objshell  = Nothing
    On Error Goto 0
End Function
Dim strPath
strPath = SelectFolder( "" )
If strPath = vbNull Then
    WScript.Echo "Cancelled"
Else
    WScript.Echo strPath
  • 另存为some_file.cmd并运行/单击它：

在此处输入图片描述

第二种选择：

  • 根据要求，file.bat自我刪除！

1）复制/粘贴到您需要使用它的地方，并在单击它们之前说再见！

2）该蝙蝠程序会将所有没有扩展名的文件重命名，然后将其自身劫持到未知位置。

@echo off && mode 050,002 && title <nul && title ...\\%~nx0
for %%J in (*)do if /i "%%~xJ"=="" ren "%%~fJ" "%%~nJ.jpeg"
echo=exit|cmd/k "2>nul >nul del /q /f "%~dpnx0"" && exit /b

在此处输入图片描述

抱歉我的水平有限英语

相关内容