home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / sizedir / test.prg < prev   
Encoding:
Text File  |  1988-06-08  |  251 b   |  21 lines
  1.  
  2.  
  3. ? SizeDir("\*.*")
  4. QUIT
  5.  
  6.  
  7.  
  8. FUNCTION SizeDir
  9.  
  10. PARAMETER Path
  11.  
  12.      Size = 0
  13.      DO WHILE .T.
  14.         ret = TamDir(Path + CHR(0))
  15.         IF ret = -1
  16.            EXIT
  17.         ENDIF
  18.         Size = Size + ret
  19.      ENDDO
  20. RETURN(Size)
  21.