中国DOS联盟

:: Unname 0.1 by undefined
:: www3.telus.net/_/unname

@echo off
title Unname
ver|find "NT">nul&&(
echo.Windows XP/2000 only.
pause>nul&goto:eof)

if not '%1'=='' (
echo."%*"|find "?">nul&&(
  echo.Removes filenames.
  echo.&echo.Usage:
  echo. %~n0 "File"
  echo.&echo.Example:
  echo. %~n0 "C:\File.lnk"
  goto:eof)
set "fil=%1"
shift&goto:prm
if not '%1'=='' (
  echo.One file at a time.
  pause>nul&goto:eof))

:fil
cls&set "fil="
echo.Drag and drop^
a file into this window^
to remove its name.
echo.&set/pfil= 
:prm
if not defined fil goto:fil
echo.&call set "quo=%fil%"
set "quo=###%quo%###"
set "quo=%quo:"###=%"
set "quo=%quo:###"=%"
set "quo=%quo:###=%"
set fil="%quo%"&set quo=
if not exist %fil% (
echo.File does not exist.
pause>nul&goto:fil)
for %%* in (%fil%) do (
echo.%%~a*|find "d">nul&&(
  echo.Folders not allowed.
  pause>nul&goto:fil)
if "%%~x*"=="" (
  echo.Extension required.
  pause>nul&goto:fil)
if exist "%%~dpx*" (
  echo.Unnamed file already^
exists in the same folder.
  pause>nul&goto:fil)
ren %%* "%%~x*"||(
  echo.Failed.
  pause>nul&goto:eof))
echo.Complete.
pause>nul

echo.>...