Quick Folder Size: Difference between revisions
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> | |||
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