tireless

改成这样，避免批处理自身被打包：

@echo off
path %path%;"C:\Program Files\WinRAR"
cd /d "D:\test" ||pause&&exit/b

echo 打包中，请稍等...
for /f "delims=" %%a in ('dir/b/a-d') do (
  if not exist "%%~na.exe" (
    dir /b "%%~na.??????????"|rar a -idq -sfx "%%~na" -n@ -x"%~f0"
  )
)
echo 完成。请按任意键退出...
pause>nul

不会漏掉没有扩展名的文件，dir test.???????? 会列出所有文件名为 test 的文件，包括没有扩展名的。

[ 本帖最后由 tireless 于 2009-5-16 10:17 编辑 ]

tireless

那就再加 10 个问号...

你的要求是打包成同名的 exe，如果有 test.exe，打包后要如何改名？

tireless

@echo off
path %path%;"e:\Program Files\WinRAR"
cd /d "D:\test"

md 自解压文件
for %%a in (*) do (
  if not exist 自解压文件\%%~na.exe (
    dir/a-d/b "%%~na.??????????"|rar a -idq -sfx "自解压文件\%%~na" -n@ -x"%~f0"
  )
)
复制代码

[ 本帖最后由 tireless 于 2009-5-18 23:10 编辑 ]