NvvLazyTiger
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
:: 0. проедемся по файлам заданой папки ...+
set fDir="%AuthDir%"
set FilSub1=""
set FilSub2=""
for %%j in ( %fDir:~1,-1%*.* ) do if NOT defined RetErrTxt (set fNam="%%~nj"&set fExt="%%~xj"&call :TotFil %%~zj)
if defined RetErrTxt goto :eof
:: + проедемся по подпапкам...
for /d %%j in ( %fDir:~1,-1%*.* ) do if NOT defined RetErrTxt (set FilSub1="%%~nxj"&call :TotPath)
if defined RetErrTxt goto :eof
set FilSub1=""
:: [... обработка результатов прохода по заданной папке]
goto :eof
:TotPath подпапка 1-го уровня,
set fDir="%AuthDir%%FilSub1:~1,-1%"
:: смотрим файлы 1-го уровня...
for %%n in ( %fDir:~1,-1%*.* ) do if NOT defined RetErrTxt (set fNam="%%~nn"&set fExt="%%~xn"&call :TotFil %%~zn)
if defined RetErrTxt goto :eof
:: смотрим подпапки 2-го уровня
for /d %%j in ( %fDir:~1,-1%*.* ) do if NOT defined RetErrTxt (set FilSub2="%%~nxj\"&call :TotDir)
if defined RetErrTxt goto :eof
set FilSub2=""
goto :eof
:TotDir подпапка 2-го уровня, смотрим только файлы...
set fDir="%AuthDir%%FilSub1:~1,-1%%FilSub2:~1,-1%"
for %%q in ( %fDir:~1,-1%*.* ) do if NOT defined RetErrTxt (set fNam="%%~nq"&set fExt="%%~xq"&call :TotFil %%~zq)
goto :eof
:TotFil собственно учёт отдельного файла; сначала - "сверим часы"
call :ChkWebFil %1 %DoDatSet%
:: [... обработка данных оыередного файла]
goto :eof
:ChkWebFil fSiz [Req/Set] данные из *.*html [+ПЕРЕустановка даты файла по дате измений (в нём)]
set fFil="%fDir:~1,-1%%fNam:~1,-1%%fExt:~1,-1%"
:: выдернем спец. данные файла %fFil% (если они там есть)
:: [... собственно п/п, где и нужно правильное имя файла]
goto :eof |
