Quick Folder Size: Difference between revisions

From AutoIt Wiki
Jump to navigation Jump to search
(delete hidden link spam)
 
m (BrokenLinks: Samples, ...)
 
Line 1: Line 1:
Back to [[Samples]]
[[Category:Samples]]
Back to [[:Category:Samples|Samples]]<!-- look at possible separate samples page -->


'''Illustrates:'''
'''Illustrates:'''
Line 10: Line 11:


* 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!
* 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!
<syntaxhighlight lang="autoit">
  ;--------------------------------------------------------------------------------
  ;--------------------------------------------------------------------------------
  ;Example of call to UDF _FolderSize()
  ;Example of call to UDF _FolderSize()
Line 69: Line 71:
      
      
  EndFunc
  EndFunc
 
</syntaxhighlight>
 
[[Category:Samples]]

Latest revision as of 13:33, 17 November 2012

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