Folder Size

Back to Samples

Purpose:

Find the space used by a folder, including subfolders and their files too.

Illustrates:

• Automation of DOS commands to accomplish a recursive folder scan.

• Basic use of StringFormat

Notes:

• Compare this method with Quick Folder Size, which uses a similar method but processes a different DOS command ;o)

• Compare this method with the builtin Autoit command "DirGetSize"

;--------------------------------------------------------------------------------
;Example of call to UDF _FolderSize()
;--------------------------------------------------------------------------------
    $sFolder = @TempDir
    $nFolderSize = _FolderSize($sFolder)
    If @error then
        ;failed
    Else
        Msgbox (4096 + 32,@ScriptName, StringFormat("Bytes in %s = %d", $sFolder, $nFolderSize))
    Endif


Func _FolderSize($psFolder)
;--------------------------------------------------------------------------------
;Uses the DOS "dir" command to recursively collect all filenames
;in a folder and its children; then adds up the filesize for each one
;and returns the total.
;--------------------------------------------------------------------------------
Local $sFileList, $nFileList, $nTotalSize

    $sFileList = "C:\_FolderSize.LST"
    RunWait(@Comspec & " /C DIR """ & $psFolder & "\*.*"" /s/b /A:-D > " & $sFileList,"", @SW_HIDE)
    
    $nFileList = FileOpen($sFileList, 0)  ;0=open
    If $nFileList = -1 then
        ;Couldn't open list of files in designated folder
        SetError(1)
        Return 0
    Endif

;Read the listfile, and determine file sizes,
;writing name and size to CSV file
    $nTotalSize = 0
    While 1
        $sFilePathName = FileReadLine($nFileList)
        if @error = -1 then;EOF
            ExitLoop
        endif
        $nTotalSize = $nTotalSize + FileGetSize($sFilePathName)
    Wend

;Cleanup
    FileClose($nFileList)
    FileDelete($sFileList)
    
    Return $nTotalSize
    
EndFunc