ADIR command to return File Sizes 2

[martin250]

Hi, I need some help returning the total size of three file types in a specific folder...I've been using ADIR but can't seem to get it to work, I hope this is the correct way...basically I'm after the total size of all *.dbf *.cdx *.fpt files in a folder called c:\data

Thanks in Advance

Martin

 

[TheRambler]

Hi, try something like this:

set default to c:\data
? filesize("*.dbf&quot
? filesize("*.cdx&quot
? filesize("*.ftp&quot

function filesize
parameter skeleton
store 0 to totbytes
dimension yourarray(1,5)
yourarray(1,1) = "*empty*"
= adir(yourarray, skeleton)
if yourarray(1,1) = "*empty*"
return(0)
else
for i=1 to alen(yourarray, 1)
totbytes = totbytes + yourarray(i,2)
endfor
endif
return(totbytes)

 

[JRB-Bldr]

You might also try this in the Command Window:

DIMENSION dir_arr (1)
=ADIR(dir_arr, "C:\*.*&quot
CLEAR
DISPLAY MEMORY LIKE dir_arr*

You should see the file size in the 2nd "column" of the array. Example: fsize = dir_arr(i,2)

Good Luck,


JRB-Bldr
VisionQuest Consulting
Business Analyst & CIO Consulting Services
CIOServices@yahoo.com

 

[martin250]

TY,