code:

---

  

$Path = "H:\"
$TempFile = "C:\00003.tmp"

$Lokaal = GETFILEVERSION("%WINDIR%\Explorer.exe", "Language")
? $Locale
IF $Lokaal = "0413Dutch"
$String = "bestand(en)"
ELSE
$String = "File(s)"
ENDIF

;=== Vang de DIR info op, filter alle regels weg behalve de regels met $String (directory output)
SHELL '%COMSPEC% /C dir $Path /s /a-d /-c | find "$String" >$TempFile'

	$ = OPEN(1, $TempFile)
		$Line = READLINE(1)
WHILE $Line <> ""
	$PrevLine = $Line
		$Line = READLINE(1)
LOOP
	$ = CLOSE(1)
DEL $TempFile

$Files = VAL(LTRIM(SUBSTR($PrevLine, 1, INSTR($PrevLine, "f") - 2)))
$Bytes = LTRIM(SUBSTR($PrevLine, INSTR($PrevLine, ")") + 1, LEN($PrevLine) - INSTR($PrevLine, ")") - (LEN($PrevLine) - INSTR($PrevLine, "b") + 2)))
WHILE INSTR($Bytes, " ") <> 0
$Bytes = SUBSTR($Bytes, 1, INSTR($bytes, " ") -1) + SUBSTR($Bytes, INSTR($Bytes, " ") + 1, LEN($Bytes) - INSTR($Bytes, " ") + 1)
LOOP

;=== Converteer het resultaat naar een integer variable.
$Bytes = VAL($Bytes)
? $Bytes
		$HomeDir_KBytes=$bytes+512)/1024
? $HomeDir_KBytes		

---