Board logo

标题: [求助]複製問題 [打印本页]

作者: green8     时间: 2010-4-8 23:37    标题: [求助]複製問題

請問各位高手
在資料夾中有5張相片,每次開機複製一張相片到C盤且改名。批處理可以做到嗎?
作者: Hanyeguxing     时间: 2010-4-8 23:47
1,复制后,原来的图片是否要删除?
2,每次是否都要复制和以前不同的图片?
3,如果每次都不同,那么5次之后怎么办?
作者: green8     时间: 2010-4-9 00:17
謝謝Hanyeguxing

複製後,原來的圖片保留

每次複製和以前不同的圖片

5次之後再由第一張開始
作者: Hanyeguxing     时间: 2010-4-9 03:51

@echo off&setlocal enabledelayedexpansion
set "r=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run"
::goto :err
reg query %r% /v "%~n0">nul 2>nul
if errorlevel 1 reg add %r% /v "%~n0" /t REG_SZ /d "\"%~0\" 1" /f
if not "%1"=="" (set s=%1) else goto :eof
for %%i in ("G:\Documents\*.jpg") do (set/a a+=1
if %s%==!a! copy "%%i" "C:\WINDOWS\%date%_%time%_%%~nxi")
set/a s=%s%+1
if %s%==6 set s=1
reg add %r% /v "%~n0" /t REG_SZ /d "\"%~0\" %s%" /f
goto :eof
:err
reg delete %r% /v "%~n0" /f
del %0
说明:
1,运行过一次后不要移动或修改本批处理的名字!
2,第一次手动运行本批处理时自动创建注册表开机启动,不复制任何图片并退出
3,复制后的图片自动按当前的"日期_时间_原文件名"的方式重命名
4,操作记录保存在注册表开机启动中的参数.
5,本批处理未经测试
6,C:\WINDOWS为图片复制后的保存文件夹目录路径
7,G:\Documents为图片原始文件夹目录路径
删除方法:
去掉::goto :err这一行最前面的::,保存后再运行本批处理即可

[ Last edited by Hanyeguxing on 2010-4-9 at 04:09 ]
作者: green8     时间: 2010-4-9 23:32
謝謝你清晰的回答!!!