@ECHO OFF
REM Batchfile to move photos from Digital Camera media to HardDrive

REM based on pcMagazine and alt.msdos.batch.net; Heavily modified by Mark Benavides, DDS 9/9/2001
REM Delete option added November 2001
REM Name addition added January 2004
REM THIS BATCH FILE assumes media card is E DRIVE, and you wish to save to P DRIVE (Photos)
REM EDIT | REPLACE FOR SOURCE E DRIVE (E:\) AND DESTINATION (P:\) for your own use
REM JANUARY 2005: ADD names to PHOTO subdirectory

ECHO Enter LastFirst or Suffix Text for Directory Name:
Set /p input=

for /F "tokens=1-4 delims=/ " %%i in ('date /t') do (
set DayOfWeek=%%i
set Month=%%j
set Day=%%k
set Year=%%l
set Date=%%i %%j/%%k/%%l
)
for /F "tokens=1-2 delims=: " %%m in ('time /t') do (
set Hour=%%m
set Min=%%n
set Time=%%m %%n
)

REM ECHO Time is "%Time%"
REM ECHO Hours is "%Hour%", Minutes are "%Min%"
REM ECHO Date is %Date%
REM ECHO Day of Week is "%DayOfWeek%", Month is "%Month%"
REM ECHO Day is "%Day%", Year is "%Year%"


REM EDIT THE LINE BELOW TO REFLECT YOUR HARD DRIVE SAVE LOCATION
REM The following creates a directory for future file movement

mkdir P:\_PHOTOS\PATIENTS\"%input%"\
type nul > P:\A_Backup.txt
for %%a in (jpg crw avi thm tif mrw wav mov mp3 mpg cr2 mdc) do (
for /f "tokens=*" %%b in ('dir /s /b E:\*.%%a') do (
xcopy "%%b" P:\"%Year%"-"%Month%"-"%Day%"_"%input%"\
)
)
REM EDIT TWO LINES ABOVE (THE 'E:\') TO REFLECT THE DRIVE LETTER OF YOUR REMOVABLE MEDIA
REM EDIT THE LINE BELOW TO REFLECT DESTINATION DRIVE LETTER
del P:\A_Backup.txt

set input =
set /p input=Clean CompactFlash(YyNn):
echo You entered: %input%

if %input% EQU y goto DelRmdir
if %input% EQU Y goto DelRmdir
goto end

:DelRmdir
REM EDIT TWO LINES BELOW TO REFLECT REMOVABLE MEDIA DRIVE
echo You are about to CLEAN the FlashCard...
format E: /q /v:
:end
REM pause