Simple question (from a simple person)

[BruceN]

I need to get the size of all files of a type (say, *.dbf) in a folder.

I can easily write a function that goes thru the file list, but it seems to me there would be an existing function that does it... but i can't find it.

thanks

[RDalzell]

Bruce,

From the Alaska docs for function directory()

Code: Select all

#include "Directry.ch" 
 
PROCEDURE Main 
  LOCAL aDbfFiles := Directory("*.DBF") 
  LOCAL nCount    := Len(aDbfFiles) 
  LOCAL n, nSum 
 
  nSum := 0 
 
  FOR n:= 1 TO nCount 
    nSum += aDbfFiles[ n, F_SIZE ] 
  NEXT 
 
  ? nCount, "DBF files occupying", nSum, "Bytes" 

RETURN 

[BruceN]

thanks...

i could have done something similar (although not quite as slick). I was hoping there as a function (perhaps something like DirSize(*.dbf) ) that would do it automatically, but I guess not.

[bwolfsohn]

bruce,

simply change the first 2 lines of the code to:

function dirsize(aMask)
LOCAL aDbfFiles := Directory(aMask)

and the lst 2 to:

// ? nCount, "DBF files occupying", nSum, "Bytes"

RETURN(nSum)

and you have it..

dirsize("*.dbf")

[BruceN]

That's basically what I did. The aFiles[ n, F_SIZE ] didn't work, so I changed things to:

FUNCTION FileTypeSize(Ftype)
LOCAL aFiles := Directory(Ftype)
LOCAL nCount := Len(aFiles)
LOCAL n, nSum:=0

FOR n:= 1 TO nCount
nSum += aFiles[ n, 2]
NEXT

RETURN nSum