a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
33 lines
740 B
Plaintext
33 lines
740 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
// 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
|