@echo off
:: (C) CyberMuesli

:demo
setlocal enabledelayedexpansion

call :GetFileInfo .\%~nx0 ArcFile
call :DisplayFileInfo ArcFile


goto :eof

::===========================================================================
:GetFileInfo
::===========================================================================
:: %1: filename %2: VarName
:: return: VarName.Origin VarName.Drive VarName.Path... etc

set %2.Origin=%1
for %%i in (%1) do (
   set %2.Drive=%%~di
   set %2.Path=%%~pi
   set %2.DPath=%%~dpi
   set %2.PNX=%%~fi
   set %2.NX=%%~nxi
   set %2.DT=%%~ti
   set %2.Size=%%~zi
)

if not "!%2.DT!"=="" (
   set %2.Year=!%2.DT:~6,4!
   set %2.Month=!%2.DT:~3,2!
   set %2.Day=!%2.DT:~0,2!
   set %2.HH=!%2.DT:~11,2!
   set %2.MM=!%2.DT:~14,2!
   set %2.SS=00
   rem call :dt2sec "%DATE% %TIME%" Now.DTSec
   rem call :dt2sec "!%2.DT!.00"     %2.DTSec
   rem set /a %2.ModifyedSecAgo=Now.DTSec-%2.DTSec
)
goto :eof

::===========================================================================
:DisplayFileInfo
::===========================================================================
echo %1.Origin        !%1.Origin!
echo %1.Drive        !%1.Drive! 
echo %1.Path        !%1.Path!  
echo %1.DPath        !%1.DPath!  
echo %1.PNX        !%1.PNX!
echo %1.NX        !%1.NX!
echo %1.DT        !%1.DT!
rem echo %1.DTSec        !%1.DTSec!
echo %1.Size        !%1.Size!
echo %1.Year,Month,Day    !%1.Year!,!%1.Month!,!%1.Day!
echo %1.HH,MM,SS    !%1.HH!,!%1.MM!,!%1.SS!
rem echo %1.ModifyedSecAgo    !%1.ModifyedSecAgo!
goto :eof

@echo off

setlocal enabledelayedexpansion

:: инициализировать 10 переменные вида arr.X случайными числами
for /l %%i in ( 0, 1, 9 ) do (
	set /a arr.%%i=!RANDOM!
)

set arr

endlocal

set prefix.param1=%~1
set prefix.param2=%~2

:: удобство отладки
set prefix

:: легко перенапралить на STDERR
set prefix>&2

:: ... или в файл
set prefix>filename.log

:: относительно просто удалить переменные
for /f "tokens=1,* delims==" %%k in ( 'set prefix' ) do (
	set %%k=
)