code:

---

  Size (mb)  Files  Directory
         6.26     19  F:
         3.51     13  F:Data
       157.05    183  F:Epos
        10.19    226  F:Frames
        52.33     45  F:Help
         0.17     13  F:Lenstech
         0.00      1  F:Mail_In 

---

code:

---

 break on
cls

$filepath="\\bolalbdatasrv01\hodata\cp\"
$list_file="c:\temp\files.lst"
$results="c:\results.csv"
$cr=chr(13)+chr(10)

shell '%comspec% /c dir /b '+$filepath+'*.txt > '+$list_file

$null=open(1,$list_file)
$null=open(10,$results,5)

$filein=readline(1)

while @error=0

	$store_number=substr($filein,instr($filein,"ALB")+3,4)

	?"Store Number= "$store_number

		$null=open(2,$filepath+$filein)

		$size=0
		
			$linein=readline(2)

				while @error=0
					if instr($linein,"copy")<>0
						gosub process_line
					endif

					$linein=readline(2)
				loop
		$null=close(2)

		$null=writeline(10,$store_number+","+$size+$cr)

	$filein=readline(1)

loop

$null=close(10)

exit



:process_line

$char_in=substr($linein,1,1)

while $char_in=" "

	$linein=substr($linein,2,len($linein))

	$char_in=substr($linein,1,1)

loop

$size_part=substr($linein,1,instr($linein," "))

	$size=val($size)+val($size_part)

return 

---