批處理文件大小限

Question

我是隨便我怎麼會作出這樣的設置文件夾設置爲只讀，如果到達上述尺寸A批處理文件

我走到這一步（1GB）：

@echo off 
color 0b 
set /p slimit=Set Max file size: 
set /p location=Folder Directory: 
cls 
color 0a 
:loop 





echo Limiting File "%location%" at %slimit%. 
ATTRIB +R %location% /sd | if errorlevel 1 goto :next1 
:next1 




echo Limiting File "%location%" at %slimit%.. 
ATTRIB +R %location% /sd | if errorlevel 1 goto :next2 
:next2 




echo Limiting File "%location%" at %slimit%... 
ATTRIB +R %location% /sd | if errorlevel 1 goto :next3 
:next3 



goto :loop 

真的，我唯一能做的就是當它達到極限組時，它使用attrib字符串。此外，錯誤級別可能會非常糟糕，我第一次使用錯誤級別。

Answer 1

要獲得文件夾的大小，您需要遞歸枚舉所有文件並獲取它們的大小。有關說明，請參閱下面代碼中的rem聲明。

@echo off & setlocal enabledelayedexpansion 

set /a "sizelimit = 1 << 30" & rem // 1GB 

rem // GUI folder chooser 
rem // http://stackoverflow.com/a/15885133/1683264 
set "psCommand="(new-object -COM 'Shell.Application')^ 
.BrowseForFolder(0,'Please choose a folder.',0,0).self.path"" 
for /f "usebackq delims=" %%I in (`powershell %psCommand%`) do set "folder=%%I" 

if not defined folder goto :EOF 

rem // get volume blocksize to determine each file's size on disk later 
rem // http://stackoverflow.com/a/30894749/1683264 
for %%I in ("%folder%") do for /f %%J in (
    'wmic volume where "driveletter='%%~dI'" get blocksize /value' 
) do 2>nul set /a %%J 

set /P "=Enumerating files in %folder%... "<NUL 

rem // use "/a:-d" switch to specify *all* files, including hidden and system 
for /f "delims=" %%I in ('dir /s /b /a:-d "%folder%"') do (

    rem // check individual file to avoid math exceeding 32-bits 
    if %%~zI geq !sizelimit! goto readOnly 

    set /a "sizelimit -= ((%%~zI - 1)/blocksize + 1) * blocksize" 
) 

echo Size limit not exceeded. 
goto :EOF 

:readOnly 
echo Setting to read-only. 
attrib +r "%folder%" /sd