[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
一思路、判断一下目录/文件 区别对待,复制整个目录用xcopy /y /e /i,复制文件用copy /y
二思路、没有特殊字符的话,关键字用 字符替换对比 / findstr查找识别 过滤出来
如无特别说明,代码测试环境均为 XP SP3

TOP

复制到所有一级子目录
  1. ::复制文件/目录到目标一级子目录
  2. @echo off
  3. :top
  4. set /p 源文件=把要复制的文件拖拽进来==》
  5. set F=%date:~5,2%%date:~8,2%
  6. set "输出目标路径=%F%总文件夹"
  7. call :fdcopy %源文件% "%输出目标路径%"
  8. goto :top
  9. :fdcopy 源 目标
  10. for /f "delims=" %%a in ('dir /ad/b "%~2"') do (
  11. if exist "%~1\" (
  12. xcopy /y/e/i "%~1" "%~2\%%a\%~nx1"
  13. )else copy /y "%~1" "%~2\%%a"
  14. )
  15. goto :eof
复制代码
仅复制到关键字子目录
  1. ::复制文件/目录到目标一级关键字子目录
  2. @echo off
  3. :top
  4. set /p 源文件=把要复制的文件拖拽进来==》
  5. set F=%date:~5,2%%date:~8,2%
  6. set "输出目标路径=%F%总文件夹"
  7. call :fdcopy %源文件% "%输出目标路径%"
  8. goto :top
  9. :fdcopy 源 目标
  10. set "关键字1=673 大军"
  11. set "关键字2=8lr 小齐"
  12. for /f "delims=" %%a in ('"dir /ad/b "%~2"|findstr /ic:"%关键字1%" /c:"%关键字2%""') do (
  13. if exist "%~1\" (
  14. xcopy /y/e/i "%~1" "%~2\%%a\%~nx1"
  15. )else copy /y "%~1" "%~2\%%a"
  16. )
  17. goto :eof
复制代码
如无特别说明,代码测试环境均为 XP SP3

TOP

返回列表