How to: Never have to save a replay again... - Page 4

@echo off
SETLOCAL ENABLEDELAYEDEXPANSION

::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
::
:: Script to automatically copy or move SC2Replay files from the
:: Unsaved folder to the Multiplayer folder (or wherever you want).
::
:: NOTE: Set the "source" and "destination" paths for your account.
:: Set "action" to "move" if you want to move the files, or
:: "copy" to copy them.
::
:: Will not overwrite any existing files and names files uniquely
:: based on the date and time they were created.
::
:: NOTE! The date parser will work for most locales but not all.
::
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

set source=C:\Users\USER\Documents\StarCraft II\Accounts\12345\1-A1-1-12345\Replays\Unsaved
set destination=C:\Users\USER\Documents\StarCraft II\Accounts\12345\1-A1-1-12345\Replays\Multiplayer
set action=move

REM Gets date/time format information from registry
FOR /F "tokens=3" %%A IN ('REG QUERY "HKEY_CURRENT_USER\Control Panel\International" /v iTime 2^>NUL') DO SET iTime=%%A
FOR /F "tokens=3" %%A IN ('REG QUERY "HKEY_CURRENT_USER\Control Panel\International" /v sDate 2^>NUL') DO SET sDate=%%A
FOR /F "tokens=3" %%A IN ('REG QUERY "HKEY_CURRENT_USER\Control Panel\International" /v sTime 2^>NUL') DO SET sTime=%%A
FOR /F "tokens=3" %%A IN ('REG QUERY "HKEY_CURRENT_USER\Control Panel\International" /v s1159 2^>NUL') DO SET s1159=%%A

REM Gets the list of files to copy from the source folder, doesn't actually copy yet
for /f "usebackq tokens=*" %%a in (`xcopy "%source%" "%destination%" /L /Y /I`) do (
  if exist "%%a" (
    REM Gets rid of number in parentheses after replay name
    if %%~xa==.SC2Replay (
      for /f "delims=0123456789( tokens=1" %%b in ("%%~na") do (
        REM Gets rid of trailing space
        set baseName=%%b##
        set baseName=!baseName: ##=##!
        set baseName=!baseName:##=!
      )
      REM Gets date/time modified.
      REM Universal Date/Time parser
      REM Works for most locales but not 100%
      
      for /f "tokens=1*" %%c in ("%%~ta") do (
        set modDate=%%c
        set modTime=%%d
      )
      
      call :Get_Date
      call :Get_Time

      REM Output time format string - feel free to adjust
      REM Note, destFolder gives a year-month folder structure for replay storage
      set destTime=!yy!-!mm!-!dd! !hh!!mn!
      set destFolder=!yy!-!mm!
      set datedest=%destination%\!destFolder!

      if not exist "!datedest!" %comspec% nul /cmd "!datedest!"
      
      REM I like the date first so files sort by date automatically
      set output=!datedest!\!destTime! !baseName!.SC2Replay
	  
      if not exist "!output!" (
        if "%action%"=="copy" (
          echo Copying "%%a" to "!output!"...
          copy "%%a" "!output!" /Y
        ) else (
          echo Moving "%%a" to "!output!"...
          move /Y "%%a" "!output!"
        )
      )
    )
  )
)
:: Uncomment next line to prompt you to hit a key before exiting so you can examine output
REM pause
goto :eof

:Get_Date
if "%modDate%A" LSS "A" (set toks=1-3) else (set toks=2-4)
for /f "usebackq skip=1 tokens=2-4 delims=(-)" %%a in (`echo:^|date`) do (
  for /f "usebackq tokens=%toks% delims=%sDate% " %%d in ('%modDate%') do (
    set %%a=%%d
    set %%b=%%e
    set %%c=%%f
    set toks=
  )
)
goto :eof

:Get_Time
if "%modTime%A" LSS "A" (set toks=3) else (set toks=1)
for /f "usebackq tokens=%toks% delims=%sTime% " %%a in ('%modTime%') do (set AMPM=%%a)
if "%modTime%A" LSS "A" (set toks=1-2) else (set toks=2-3)
for /f "usebackq tokens=%toks% delims=%sTime% " %%a in ('%modTime%') do (
  set hh=%%a
  set mn=%%b
  if "!AMPM!"=="AM" (
    set s1159=AM
    set iTime=0
  ) else (
    if "!AMPM!"=="PM" (
      set iTime=0
    )
  )
  if "!iTime!"=="0" (
    if "!AMPM!"=="%s1159%" (
      if "!hh!"=="12" set hh=00
    ) else (
      if "!hh:~0,1!"=="0" set hh=!hh:~1,1!
      if not "!hh!"=="12" set /A hh=!hh!+12
    )
  )
  set AMPM=
  set toks=
)
goto :eof