Batcher

@echo off
set SrcFolder=D:\test
set rarPath=C:\Program Files\WinRAR
for %%a in ("%SrcFolder%\*.*") do (
  md "%SrcFolder%\%%~na" 2>nul
  move /y "%%a" "%SrcFolder%\%%~na" 2>nul
)
for /f "delims=" %%a in ('dir /ad /b "%SrcFolder%\"') do (
  "%rarPath%\rar.exe" a -sfx "%%~na.exe" "%SrcFolder%\%%a"
)
复制代码

Batcher

请用此代码分别测试如下场景，看看是不是你想要的结果。

1、文件列表：
a.txt
a.exe

2、文件列表：
a.BatHome
a.BatHomeBacher

Batcher

1、本批处理程序可以跟需要处理的文件放在同一目录
2、可以兼容没有扩展名的文件

@echo off
set SrcFolder=D:\test
set rarPath=C:\Program Files\WinRAR
rd /s /q "%temp%\BatHome"
md "%temp%\BatHome"
for %%a in ("%SrcFolder%\*.*") do (
  if "%%~xa" equ "" (
    move "%%a" "%temp%\BatHome"
  )
)
for %%a in ("%SrcFolder%\*.*") do (
  if "%%~nxa" neq "%~nx0" (
    md "%SrcFolder%\%%~na"
    move /y "%%a" "%SrcFolder%\%%~na"
  )
)
for /f "delims=" %%a in ('dir /ad /b "%SrcFolder%\"') do (
  "%rarPath%\rar.exe" a -sfx -ep "%SrcFolder%\%%~na.exe" "%SrcFolder%\%%a"
)
for %%a in ("%temp%\BatHome\*.*") do (
  "%rarPath%\rar.exe" a -ep "%SrcFolder%\%%~na.exe" "%%a"
)
复制代码

Batcher

不能打包exe文件，这一点正是8楼的方法的缺陷所在。

Batcher

当出现不带扩展名的文件时,自解压压缩包里会有这个文件,但文件被移动到子目录时,那个文件不见了.

没看懂啥意思，“文件被移动到子目录”是什么意思？你说的我的代码在移动文件的时候吗？
我那个代码会把没有扩展名的文件先移动到一个系统临时目录里面。