@ECHO OFF
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 addiiton added January 2004
REM DRIVE MODIFICATION MAY 2007
REM VARIABLES:
REM INPUT = PT NAME
REM Media = DRIVE


ECHO Media Drive is ....
set /p Media=

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 Time is "%Time%", Hours is "%Hour%", Minutes are "%Min%", Date is %Date%,
REM Day of Week is "%DayOfWeek%", Month is "%Month%"
REM Day is "%Day%", Year is "%Year%"


REM The following creates a directory for future file movement

mkdir D:\_PHOTOS\_PATIENTS\"%input%"\
type nul > D:\A_Backup.txt
for %%a in (jpg crw avi thm tif mrw wav mov mp3 mpg cr2 raf nef raw) do (
for /f "tokens=*" %%b in ('dir /s /b %Media%:\*.%%a') do (
xcopy "%%b" D:\"%Year%"-"%Month%"-"%Day%"_"%input%"\
)
)

REM del D:\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 CONVERT

:DelRmdir
echo You are about to CLEAN the FlashCard...
format %Media%: /q /v:

:CONVERT
set input =
echo FORMAT D:\CONVERT
set /p input=CLEAN D:\CONVERT (YyNn):
echo You entered: %input%

if %input% EQU y goto DeleteConvert
if %input% EQU Y goto DeleteConvert
goto END

:DeleteConvert
D:
rmdir D:\CONVERT /s/q

:END
pause