9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
29 lines
724 B
Plaintext
29 lines
724 B
Plaintext
// directory test
|
|
|
|
#include "directry.ch"
|
|
|
|
PROCEDURE Main( filespec, attribs, cshort )
|
|
|
|
LOCAL aDir
|
|
LOCAL x, lShort := .F.
|
|
|
|
IF ! cshort == NIL .AND. ( Upper( cShort ) == "TRUE" .OR. Upper( cShort ) == ".T." )
|
|
lShort := .T.
|
|
ENDIF
|
|
|
|
// aDir := ASort( Directory( filespec, attribs, lShort ),,, {| x, y | Upper( x[ F_NAME ] ) < Upper( y[ F_NAME ] ) } )
|
|
aDir := Directory( filespec, attribs, lShort )
|
|
|
|
Set( _SET_DATEFORMAT, "yyyy-mm-dd" )
|
|
|
|
FOR x := 1 TO Len( aDir )
|
|
? ;
|
|
PadR( aDir[ x, F_NAME ], 20 ), "|", ;
|
|
Transform( aDir[ x, F_SIZE ], "9,999,999,999" ), "|", ;
|
|
aDir[ x, F_DATE ], "|", ;
|
|
aDir[ x, F_TIME ], "|", ;
|
|
aDir[ x, F_ATTR ]
|
|
NEXT
|
|
|
|
RETURN
|