apang

@echo off
set wmic=wmic datafile where "drive!='%~d0' and Extension='psd'"
for /f "tokens=2 delims==" %%a in ('%wmic% get name /value^|find "="') do (
  for /f "tokens=*" %%b in ("%%a") do xcopy "%%b" "PSD\" /y
)
pause
复制代码

放在U盘运行，不考虑psd文件重名情况

apang

怎样避免把当前U盘里的文件也历遍了？？
xzwcn 发表于 2013-3-22 15:09

    莫名其妙，你测试过没有？

apang

回复 6# xzwcn


    xp sp3 32bit和win7 sp1 32bit测试没发现你说的问题，奇葩
这样试试（路径或文件名不能含 ! 号）

@echo off
(for %%a in (c d e f g h i j k l m n o p q r s t u v w x y z) do (
   if exist "%%a:\" if /i not "%~d0"=="%%a:" (
      pushd "%%a:\"
      for /r %%b in (*.psd) do call :a "%%b"&echo,%%b
      popd
   )
))>List.txt
pause&goto :eof

:a
set "Name=%~nx1"&set /a m=0
setlocal enabledelayedexpansion
:Lp
if exist "%~dp0PSD\%Name%" (
   set /a m+=1
   set "Name=%~n1(!m!)%~x1"
   goto :Lp
) else (echo,f|xcopy "%~1" "%~dp0PSD\%Name%" /y)>nul
复制代码