Quick Folder Size

Back to Samples

Illustrates:

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

• Basic use of StringFormat

Notes:

• This is a quicker version of Folder Size, but based on a similar principle. The difference is that this version lets DOS even do the adding up!

 ;--------------------------------------------------------------------------------
 ;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 recurse through all subfolders,
 ;listing the size of each one, followed by a final summary total
 ;which is in fact the value we're after!
 ;--------------------------------------------------------------------------------
 Local $sFileList, $nFileList, $nTotalSize
 
     $sFileList = "C:\_FolderSize.LST"
     RunWait(@Comspec & " /C DIR """ & $psFolder & """ /s /A:-D /-C|find ""File(s)""> " & $sFileList,"", @SW_HIDE)
 #cs
 .. returns a list like this, 
 where the LAST LINE IS THE TOTAL OF ALL EARLIER LINES ;o)
               84 File(s)         792992 bytes
                6 File(s)          10400 bytes
                5 File(s)           1648 bytes
               85 File(s)        1721301 bytes
               77 File(s)          36400 bytes
               81 File(s)          45170 bytes
              338 File(s)        2607911 bytes
 #ce
 
     $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 keep the value from the last line
     $nTotalSize = 0
     While 1
         $sFolderSize = FileReadLine($nFileList)
         if @error = -1 then;EOF
             ExitLoop
         endif
         $sTotalSize = $sFolderSize                        
     Wend
     $nTotalSize = StringMid($sTotalSize, 25, 15)
 
 ;Cleanup
     FileClose($nFileList)
     FileDelete($sFileList)
     
     Return $nTotalSize
     
 EndFunc