First I want to thank you for the good and very helpfull responses !!!

thanx for your responses.... I'm now trying to get the script working. The only thing I now experience is a : File not found message when it wants to create the txt-file.(SHELL "%comspec% /c dir /b $dirarray[$counter] > $dirarray[$counter].txt")
Any suggestions what it can be ? When I use it with the script Bryce wrote, it works fine ! But i'm more interested in the Delroutine Fuentez wrote...

Again thx,
Jasper

>>Note:
Appearantly, kix want you to stuff the value of $dirarray[$counter] into a seperate variable before you use it (in a SHELL at least).
So:
$now=$dirarray[$counter]
and THEN
SHELL '%comspec% /c dir /b $now >> $now.txt'
works just fine...

---------------------------------------------
;run the script from the root of your dir-structure

BREAK ON

DIM $dirarray[4]
$dirarray[0]="directory"
$dirarray[1]="directory1"
$dirarray[2]="directory2"
$dirarray[3]="directory3"

$countermax=4 ;(total array + 1)

$counter=0
WHILE $counter<$countermax
$now=$dirarray[$counter]
SHELL '%comspec% /c dir /b $now >> $now.txt'
$counter=$counter+1
LOOP

$counter=0
WHILE $counter<$countermax
GOSUB delroutine
$counter=$counter+1
LOOP

? "Check done"
GET $none
EXIT

;------------------------DELROUTINE---------------------
:delroutine
$now=$dirarray[$counter]
OPEN (6,"$now.txt")
$currentfile=READLINE(6)

WHILE ($currentfile<>"")

$date_old=getfiletime("$now\$currentfile")
$year_old=VAL(substr($date_old,1,4))
$month_old=VAL(substr($date_old,6,2))
$day_old=VAL(substr($date_old,9,2))

IF (VAL(substr(@date,1,4))-$year_old)>0 AND ($month_old<12) GOTO decided ENDIF
IF (VAL(substr(@date,1,4))-$year_old)>0 AND ($month_old=12) AND (@monthno>1) GOTO decided ENDIF
IF ((@monthno-$month_old)>1) GOTO decided ENDIF
IF ((@monthno-$month_old)=1) GOTO decided ENDIF
GOTO endloop

:decided
DEL "$now\$currentfile"
:endloop
$currentfile=READLINE(6)
LOOP

CLOSE (6)
DEL "$now.txt" ;delete the directory-content-file when done.
RETURN
;-------------------------------------------------------------

[This message has been edited by Fuentez (edited 26 July 2000).]

i've got it working... !!! The only thing i walk into is the following:

When the script wants to write to the txt-file, it is done correctly..., except it is overwriting each time it writes to the txt-file...(it's not adding lines to the txt-file)

Grt,
Jasper

- Ramon

But.., i've got it working now... ripped out the dirarray.

Thanx very much for getting me on the good path !

DIM $dirarray[3]
$dirarray[0]="dir1"
$dirarray[1]="dir2"
$dirarray[2]="dir3"

If you do have multiple subdirs then the script could be modified but I think that would be a beautifull place to start getting aquainted with Kix! *grin*

Sorry......*grin*

if you ever want to append to a file use '>>'
instead of '>'

cu

_________________________

thanx for the tip...., I keep it in mind.

CU,
Jasper