rem download_copier.bat
echo 'Listener for downloads where the name downloaded matches criteria for a PATH defined that facilitates a followup copy'
echo ''
set dpath ""
cd > bla.txt
set /p defp=<bla.txt

set repplace %defp% 

echo %defp%> bla.txt
for %%? in (bla.txt) do ( set /A lendefp=%%~z? - 2 )

set xdefp ""

if not TRICK==TRICK%1 (
 if exist %defp% (
  set defp %1

  echo %defp%> bla.txt
  for %%? in (bla.txt) do ( set /A lendefp=%%~z? - 2 )

  set twodefp=%defp:*\=%
  
  if not %twodefp%==%defp% (
    set defp %defp%\
  ) else (
    set defp %defp%/
  )
  set dpath %defp%
  set xdefp %defp%
 )
)

if TRICK==TRICK%xdefp% (

  set twodefp=%defp:*\=%
  
  if not %twodefp%==%defp% (
    set defp %defp%\
  ) else (
    set defp %defp%/
  )
  
  set /p dpath=Path for matching downloads to copy to [%defp%] 

  
  if not TRICK==TRICK%dpath% (
    set dpath %defp%

    echo %defp%> bla.txt
    for %%? in (bla.txt) do ( set /A lendefp=%%~z? - 2 )

  ) else (

    echo %dpath%> bla.txt
    for %%? in (bla.txt) do ( set /A lendefp=%%~z? - 2 )

    set twodpath=%dpath:*\=%
  

    if not %twodpath%==%dpath% (
      set dpath %dpath%\
    ) else (
      set dpath %dpath%/
    )
  ) 
)

if exist %dpath% (
  set twodpath=%dpath:*\=%
  set pdp=%twodpath:*\=%
  set twodpath=%pdp:*\=%
  set pdp=%twodpath:*\=%
  set twodpath=%pdp:*\=%
  set pdp=%twodpath:*\=%
  set twodpath=%pdp:*\=%
  set pdp=%twodpath:*\=%
  set twodpath=%pdp:*\=%


  set pdp=%twodpath:*/=%
  set twodpath=%pdp:*/=%
  set pdp=%twodpath:*/=%
  set twodpath=%pdp:*/=%
  set pdp=%twodpath:*/=%
  set twodpath=%pdp:*/=%
  set pdp=%twodpath:*/=%
  set twodpath=%pdp:*/=%
  
  set pdp=%twodpath:*:=%
  set twodpath=%pdp:*:=%
  set pdp=%twodpath%

  echo "" > %repplace%\download_to_place.out
  set nthan  %repplace%\download_to_place.out
  set cmdsuff ""
  set cmdmid ""
  
  cd %USERPROFILE%\Downloads
:loop
  for /F "tokens=2" %i in ('date /t') do dir /T:C | findstr /C:%i /B >>  %repplace%download_to_place.lst
  
  set ok "1"
  if exist %repplace%download_to_place.lst (
    for %%x in (%repplace%download_to_place.lst) do if not %%~zx==0 (
      set ok "1"
    ) else (
      set ok "0"
    )
  )  
  
  if not exist %repplace%download_to_place.lst (
   set nthan %repplace%\download_to_place.out
  ) else if %ok==0 (
   set nthan %repplace%\download_to_place.out
  ) else (
   echo "" > %repplace%download_to_place.out
   echo "" > %repplace%download_to_place.alt
   set nthan %repplace%download_to_place.alt
   rem set file %repplace%download_to_place.lst
   rem Thanks to https://www.cyberciti.biz/faq/ksh-read-file/
   
   rem Must contain %pdp%

   SETLOCAL DisableDelayedExpansion
   FOR /F "usebackq delims=" %%a in (`"findstr /n ^^ %repplace%download_to_place.lst"`) do (
    set "line=%%a"
    SETLOCAL EnableDelayedExpansion
    set "line=!line:*:=!"
    echo(!line!
    ENDLOCAL



   )
   
rem   while IFS= read -r line
rem   do
rem        # display line or do somthing on $line
rem    if [ `echo "${line}" | tr -d ' '` != `echo "${line}"` ]; then
rem      one=`echo "${line}"`
rem      two=`echo "${line}" | sed '/ /s///g'`
rem      mv "${one}" "${two}"
rem      line="${two}"
rem    fi
rem	toext=""
rem	nonext=`echo "${line}"`
rem    ifl=${nonext}
rem    bname=${ifl##*/}
rem    brest="`echo ${bname} | cut -b ${lendefp}-`"
rem    suf=""
rem    isuf=-1
rem    while [ -f "${dpath}/${brest}${suf}" ]; do
rem      ((isuf=isuf+1))
rem      suf="_${isuf}"
rem    done
rem    if [ ! -z "$suf" ]; then
rem      echo "mv ${dpath}/${brest} ${dpath}/${brest}${suf} # `date`" >> download_to_place.out
rem      mv ${dpath}/${brest} ${dpath}/${brest}${suf} >> download_to_place.out 2>> download_to_place.err
rem    fi
rem	echo "cp -f ${ifl} ${dpath}/${brest} # `date`" >> download_to_place.out 
rem	cp -f ${ifl} ${dpath}/${brest} >> download_to_place.out 2>> download_to_place.err
rem   done < $file
   
   echo "" > %repplace%download_to_place.lst

   for /F "tokens=2" %i in ('date /t') do dir /T:C | findstr /C:%i /B >  %repplace%download_to_place.lst

   echo "" > %repplace%download_to_place.alt
  )
  sleep 10
goto loop

exit
) else (
 echo "Needs to be an existant directory PATH on the disk"
)
exit