[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文件操作] [已解决]批处理如何复制文件到首字母文件夹并解决重名问题

文件夹images下的子文件夹是以单个字母(A、B、C等)或单个数字(1、2、3等)或单个其它字符(#、_等)命名的,文件是以首字母分们别类的放在各子文件夹中的,比如big.jpg bad.jpg等是放在子文件B中的。
我平时零星收集的图片都放在D:\photos文件夹下,达到一定数量就统一更新一次图片,也就是将收集的图片分类复制到images的子文件夹中。
重名文件按以下规则处理:比如要复制big.jpg到B文件夹。如果文件夹中不存在big.jpg,直接复制过来;如果存在,复制过来时重命名为big (2).jpg(源文件不改名);如果存在big (2).jpg,重命名为big (3).jpg,依此类推。

自己也写了一个。要复制的文件和批处理文件放到与单字符文件夹同一目录:
  1. @echo off
  2. setlocal enabledelayedexpansion
  3. for %%a in (*.jpg) do (
  4.     set x=%%a
  5.     set x=!x:~0,1!
  6.     if not exist "!x!\%%a" (copy "%%a" "!x!\") else (
  7.         if not exist "!x!\%%~na (2).jpg" (copy "%%a" "!x!\%%~na (2).jpg") else (
  8.             set n=2
  9.             for /f "delims=" %%b in ('dir /b /a-d !x!\*^|findstr /r /be /c:"%%~na ([0-9][0-9]*).jpg"') do (
  10.                 set "str=%%~nb"
  11.                 set "m=!str:%%~na (=!"
  12.                 set "m=!m:)=!"
  13.                 if !m! gtr !n! set /a n=m
  14.             )
  15.             set /a n+=1
  16.             copy "%%a" "!x!\%%~na (!n!).jpg"
  17.         )
  18.     )
  19. )
  20. pause
复制代码

TOP

回复 4# WHY
太感谢了,非常好用。

TOP

本帖最后由 WHY 于 2020-12-31 17:54 编辑
  1. @echo off
  2. set "srcDir=D:\photos"
  3. set "dstDir=D:\images"
  4. pushd "%srcDir%\"
  5. for %%i in (*.jpg *.bmp) do (
  6.     set "name=%%~ni"
  7.     setlocal enabledelayedexpansion
  8.     set "fd=!dstDir!\!name:~0,1!"
  9.     md "!fd!" 2>nul
  10.     if not exist "!fd!\!name!%%~xi" (
  11.         copy "!name!%%~xi" "!fd!\"
  12.     ) else (
  13.         set "n=1"
  14.         call :Next "%%~xi"
  15.         copy "!name!%%~xi" "!fd!\!name!(!n!)%%~xi"
  16.     )
  17.     endlocal
  18. )
  19. pause & exit
  20. :Next
  21. if exist "!fd!\!name!(!n!)%~1" (
  22.     set /a n+=1
  23.     goto :Next
  24. )
复制代码
1

评分人数

TOP

回复 2# xczxczxcz
谢谢,虽然ps版本太低用不了,先收下。

TOP

好久没有写过了,
PS 3.0 以上,否则勿试。
  1. function Rename-File {
  2. param([string]$dir, [string]$base, [string]$ext,
  3. [string]$bn = '', [uint16]$n = 0);
  4. if ([IO.File]::Exists("$dir\$($base+$bn+$ext)")) {
  5. $bn = ' (' + ++$n + ')';
  6. return  Rename-File -dir $dir -base $base -bn $bn -ext $ext -n $n;
  7. }
  8. return $base + $bn;
  9. }
  10. ls 'D:\photos\*' -Include '*.jpg', '*.png' -file | % {
  11. $f_str = $_.BaseName.Substring(0, 1);
  12. $dir = "$pwd\images\$f_str";
  13. if (![IO.Directory]::Exists($dir)) { md $dir | Out-Null }
  14. $base = Rename-File -dir $dir -base $_.BaseName -ext $_.Extension;
  15. cp $_.FullName -dest "$dir\$($base+$_.Extension)" -Verbose;
  16.         # cp 改为 move 则移动文件。
  17. }
  18. Pause
复制代码
1

评分人数

QQ: 己阵亡
脚本优先 [PowerShell win10]

TOP

返回列表