IEvKI3gv9Wrkd41u: BrokenLinks: Samples, ...

2012-11-17T13:33:59Z

BrokenLinks: Samples, ...

← Older revision		Revision as of 13:33, 17 November 2012
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]]~~

JonTest: delete hidden link spam

2006-01-18T03:26:11Z

delete hidden link spam

New page

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

[[Category:Samples]]

Quick Folder Size - Revision history

IEvKI3gv9Wrkd41u: BrokenLinks: Samples, ...

JonTest: delete hidden link spam