CMD/BAT - [решено] получить размер каталога с подкаталогами

sov44 · Конфигурация компьютера

Немного изменил батник, чтобы путём перебора заданных папок считал размер и удалял содержимое ЭТИХ папок. В итоге скрипт удаляет сами папки и рядом лежащие. Подскажите, где ошибка?

Код:

SetLocal enabledelayedexpansion

call :OperaDel cache
call :OperaDel temporary_downloads
pause

:OperaDel
Set DirProg=%USERPROFILE%\Local Settings\Application Data\Opera\opera\%1

For /F "skip=4 tokens=1-3" %%a IN ('Dir "%DirProg%" /-C /S ') Do (
	If !flag!==1 Set dirsize1=%%c
	If "%%b"=="файлов:" (Set flag=1) Else (Set flag=0)
      )
Set /A Cnt +=dirsize1
PUSHD "%DirProg%"
2>Nul RD /S/Q "%DirProg%"
POPD
echo    Очистка временных файлов Opera                - OK   %Cnt%

sov44 · Конфигурация компьютера

Столько дней без ответа!!!! Профи, не игнорируйте новичков!!!

sov44 · Конфигурация компьютера

Нужна помощь в отладке скрипта получения размера содержимого папки Temp, за исключением определённых файлов и папки.

Код:

@Echo Off
SetLocal enabledelayedexpansion

Set DirProg=%WinDir%\TEMP
For /f %%I In ('dir/b/od "%DirProg%"') Do (
           if not "%%~nxI"=="kls1EE8.tmp" (
           if not "%%~nxI"=="kls1444444EE8.tmp" (
           if not "%%~nxI"=="VBE" (
        For /F "skip=4 tokens=1-3" %%a IN ('Dir "%DirProg%" /-C /S') Do (
        If !flag!==1 Set dirsize=%%c
	If "%%b"=="файлов:" (Set flag=1) Else (Set flag=0)
	)
        Set /A Cnt +=%dirsize%
	)))
)
Echo %Cnt%
pause

Iska · Отправлено: **15:34, 08-11-2011** | #54

Цитата sov44:

Нужна помощь в отладке скрипта получения размера содержимого папки Temp, за исключением определённых файлов и папки. »

И в чём она (помощь) должна состоять?

gora · Конфигурация компьютера

Цитата sov44:

получения размера содержимого папки Temp, за исключением определённых файлов и папки. »

Код:

@Echo Off
SetLocal enabledelayedexpansion
Set DirProg=%WinDir%\TEMP

Call :_DirSize "%DirProg%"
Set /A AllSize +=dirsize
Echo %AllSize%
Call :_DirSize "%DirProg%\VBE"
Set /A AllSize -=dirsize
Echo %AllSize%
For %%i In ("%DirProg%\kls1EE8.tmp" "%DirProg%\kls1444444EE8.tmp") Do If Exist %%i Set /A AllSize -= %%~zi
Echo %AllSize%
Pause>nul

:_DirSize
Set dirsize=0
For /F "skip=4 tokens=1-3" %%a IN ('Dir "%~1" /-C /S /A:-D  2^>nul') Do (
	If !flag!==1 Set dirsize=%%c
	If "%%b"=="файлов:" (Set flag=1) Else (Set flag=0)
)
GoTo :EOF

sov44 · Конфигурация компьютера

Нужна помощь в выявлении конфликта между двумя блоками в bat. Каждый блок по отдельности работает как надо, однако при их объединении второй блок не срабатывает.
Не обработка второго блока происходит в случае принудительного завершения процесса winword.exe первым блоком.

Код:

@Echo Off
SetLocal enabledelayedexpansion
 
set iSumT=0
 
set "dr=%USERPROFILE%\Recent"& call :Calc "%dr%" lnk
set "dr=%USERPROFILE%\Application Data\Microsoft\Office\Последние файлы"& call :Calc "%dr%" lnk
set "dr=%USERPROFILE%\Local Settings\Temporary Internet Files\Content.MSO"& call :Calc "%dr%" *
set "dr=%USERPROFILE%\Local Settings\Temporary Internet Files\Content.Word"& call :Calc "%dr%" *
Set /A Cnt +=%iSumT%
goto :x1
 
:Calc
for /f "delims=*" %%i in ('dir /b/a-d "%dr%\*.%2" 2^>nul') do (
set "bg=%%i"
if "!bg:~0,1!"=="~" (
    >"%temp%\MsgBox.vbs" echo WScript.Quit^(MsgBox^(WScript.Arguments^(1^) ^& vbCrLf ^& WScript.Arguments^(2^) ^& vbCrLf ^& vbCrLf ^& WScript.Arguments^(3^), vbYesNo+vbDefaultButton1,WScript.Arguments^(0^)^)^)
    tasklist 2>nul|find /i "winword.exe" 1>nul 2>nul && (WScript "%temp%\MsgBox.vbs" "Внимание" "     Для успешной работы скрипта" "закройте все документы Word" "            Документы закрыты?")
    tasklist 2>nul|find /i "winword.exe" 1>nul 2>nul && (WScript "%temp%\MsgBox.vbs" "Внимание" "                           Документы Word не закрыты^!" "После нажатия на кнопку они будут закрыты принудительно" "                                         Продолжить?"& taskkill /F /IM winword.exe 1>nul 2>nul)
        )
    del /q "%temp%\MsgBox.vbs" 2>nul
    if exist "%dr%\!bg!" (              
        for %%a in ("%dr%\!bg!" ) do (
                 set /a iSumT += %%~za
                 del /f/q %%a 2>nul
                 ))
    )
exit /b 0
 
rem -------------------------------------------------------------------------
 
:x1
set dirsize4=0
For /F "UseBackQ" %%d In (
`WMIC LogicalDisk Where "FileSystem LIKE '_%%'" Get Caption^|Find ":"`) do (
 Set "DirProg=%%d\RECYCLER"& Set "flag=0"
 If EXIST !DirProg! (For /F "Skip=4 Tokens=1-3" %%a In ('DIR/-C/S/A:-D "!DirProg!"2^>Nul') Do (
      If !flag!==1 Set dirsize4=%%c
      If "%%b"=="файлов:" (Set flag=1) Else Set flag=0)
 )
   )
Set rst=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches
REG Add "%rst%\Recycle Bin" /v StateFlags0001 /t REG_DWORD /d 2 /f >nul
REG Delete "%rst%\Compress old files" /f 2>nul
Cleanmgr /sagerun:1
 
echo Cnt=%Cnt%
echo dirsize4=%dirsize4%
Set /A Cnt +=dirsize4
 
echo  summ_Cnt=%Cnt%
pause

sov44 · Конфигурация компьютера

Ни у кого нет идей, почему не запускается WMIC во втором блоке при принудительном завершении процесса winword.exe?

El Sanchez · Конфигурация компьютера

Цитата sov44:

Ни у кого нет идей, почему не запускается WMIC во втором блоке при принудительном завершении процесса winword.exe »

sov44, частый вызов tasklist в цикле вешает WMI

sov44 · Конфигурация компьютера

Цитата El Sanchez:

частый вызов tasklist в цикле вешает WMI »

Вытащил tasklist из цикла, всё равно второй блок не запускается.

Код:

@Echo Off
SetLocal enabledelayedexpansion
 
set iSumT=0

  >"%temp%\MsgBox.vbs" echo WScript.Quit^(MsgBox^(WScript.Arguments^(1^) ^& vbCrLf ^& WScript.Arguments^(2^) ^& vbCrLf ^& vbCrLf ^& WScript.Arguments^(3^), vbYesNo+vbDefaultButton1,WScript.Arguments^(0^)^)^)
    tasklist 2>nul|find /i "winword.exe" 1>nul 2>nul && (WScript "%temp%\MsgBox.vbs" "Внимание" "     Для успешной работы скрипта закройте все документы Word" "После нажатия на кнопку они будут закрыты принудительно" "                                         Продолжить?"& taskkill /F /IM winword.exe 1>nul 2>nul)
    del /q "%temp%\MsgBox.vbs" 2>nul
 
set "dr=%USERPROFILE%\Recent"& call :Calc "%dr%" lnk
set "dr=%USERPROFILE%\Application Data\Microsoft\Office\Последние файлы"& call :Calc "%dr%" lnk
set "dr=%USERPROFILE%\Local Settings\Temporary Internet Files\Content.MSO"& call :Calc "%dr%" *
set "dr=%USERPROFILE%\Local Settings\Temporary Internet Files\Content.Word"& call :Calc "%dr%" *
Set /A Cnt +=%iSumT%
goto :x1
 
:Calc
for /f "delims=*" %%i in ('dir /b/a-d "%dr%\*.%2" 2^>nul') do (
set "bg=%%i"
for %%a in ("%dr%\!bg!" ) do (
         set /a iSumT += %%~za
         Echo %%a
del /f/q %%a 2>nul
      )
)
exit /b 0
 
rem -------------------------------------------------------------------------
 
:x1
set dirsize4=0
ping 127.0.0.1 -n 5 >nul
For /F "UseBackQ" %%d In (`wmic LogicalDisk Where "FileSystem LIKE '_%%'" Get Caption^|Find ":"`) Do (
      Set "DirProg=%%d\RECYCLER"& Set "flag=0"
      If EXIST !DirProg! (For /F "Skip=4 Tokens=1-3" %%a In ('DIR/-C/S/A:-D "!DirProg!"2^>Nul') Do (
      If !flag!==1 Set dirsize4=%%c
      If "%%b"=="файлов:" (Set flag=1) Else (Set flag=0)
       )
  )
)
Set rst=HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\VolumeCaches
REG Add "%rst%\Recycle Bin" /v StateFlags0001 /t REG_DWORD /d 2 /f >nul
REG Delete "%rst%\Compress old files" /f 2>nul
Cleanmgr /sagerun:1
echo Cnt=%Cnt%
echo dirsize4=%dirsize4%
Set /A Cnt +=dirsize4
echo  summ_Cnt=%Cnt%
pause

El Sanchez · Конфигурация компьютера

sov44, да уж, не ожидал. Похоже чудит find/findstr при использовании оператора piping (|). Уберите красное:

Код:

tasklist 2>nul|find /i "winword.exe" 1>nul 2>nul