Hi guys,

Thanks, now I'm on it...;)

This is how far I've got...

BREAK ON

$dir = "1"

WHILE $dir <> ""
OPEN (1, "C:\2.TXT")
$dir = READLINE (1)
$Ascii = SUBSTR ($dir, 23, 14)

DEL "$Ascii\*.* /H /S"
RD $Ascii
LOOP
CLOSE (1)

Regards..