You could do something similar using ADIR()
ADIR(aFiles,[*.*])
x=0
FOR y=1 TO ALEN(afiles,1)
x=x+afiles[y,2]
NEXT
?x
Jaime Vasquez wrote:
> Girard,
>
> No, there's no API, the closest APIS are FindFirstFile and FindNextFile,
> and a loop through the folder, an example (sorry, VB code), is shown
> here: http://vbnet.mvps.org/index.html?code/fileapi/getdirectorysize.htm
>
>
> another alternative could be to use DOS:
>
> !Dir c:\windows > c:\tmp\windir.txt
> nI = Alines(aFolderSize, Filetostr("c:\tmp\windir.txt"))
> ?"Folder Size: " + Substr(aFolderSize(nI-1),Rat(" ", aFolderSize(nI -
> 1), 2))
>
--
Richard Kaye
Artfact/RFC Systems
Voice: 617.219.1038
Fax: 617.219.1001
For the fastest response time, please send your support
queries to:
Technical Support - [EMAIL PROTECTED]
Australian Support - [EMAIL PROTECTED]
Internet Support - [EMAIL PROTECTED]
All Other Requests - [EMAIL PROTECTED]
---------------------------------------------------------
This message has been checked for viruses before sending.
---------------------------------------------------------
_______________________________________________
Post Messages to: ProFox@leafe.com
Subscription Maintenance: http://leafe.com/mailman/listinfo/profox
OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech
** All postings, unless explicitly stated otherwise, are the opinions of the
author, and do not constitute legal or medical advice. This statement is added
to the messages for those lawyers who are too stupid to see the obvious.
