RE: API to find the size of an entire folder structure?

Try this 100% VFP solution. It puts the recursive contents of a folder into a cursor with file size and you can then sum the size.

*****************

* START OF CODE

*****************

* Display Files in a Folder within a Table

* Written by: Dave Crozier

* Amendments:

* 04/09/2015 - Add in field to contain file size for Paul Newton

Clear All

Clear

Public oForm

oForm=Createobject("MyForm",Addbs(Getdir("c:\temp\")),"*.*",.F.)

Define Class MyForm As Form

AllowOutput=.F. && so '?' output goes to screen

Width=_Screen.Width

Height=_Screen.Height-50

Width=1024

Height=798

Procedure Init(cPath As String, cMask As String, fSubDir As Boolean)

Set Exclusive Off

Set Safety Off

Set Talk Off

Set Exact Off

Create Cursor Files (Path c(240),fname c(240),Fsize N(10,0),Timestamp T)

This.DoDir(cPath,cMask)

Index On Timestamp Descending Tag T && choose your desired order

* INDEX on fsize DESCENDING TAG fsize

With This

.AddObject("gr","grid")

With .gr

.AllowCellSelection=.F.

.Visible=1

.Height=Thisform.Height

.Width = Thisform.Width

.AutoFit

.Column3.InputMask="999,999,999"

Endwith

.Show

Endwith

Procedure DoDir(cPath As String, cMask As String)

Local N,i,aa[1]

N=Adir(aa,cPath+cMask,"",1)

For i = 1 To N

Insert Into Files (Path,fname,Fsize,Timestamp) Values ;

(cPath, aa[i,1], aa[i,2], Ctot(Dtoc(aa[i,3])+aa[i,4]))

Endfor

N=Adir(aa,cPath+"*.*","HD",1) && now without the mask, search for directories

For i = 1 To N

If "D"$aa[i,5] && if it's a dir

If aa[i,1] != '.'

This.DoDir(cPath+aa[i,1]+"\",cMask) && recur

Endif

Endfor

Enddefine

****************

* End of Code

****************

Dave