:: 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

Originally posted by plp626 at 2008-4-13 16:56:
没那么麻烦：
echo\>.pp365

echo.>...

Originally posted by zh159 at 2008-4-13 05:27 PM:
LZ发的好长


我习惯用

echo.>...