$excl="text","file1"
For Each $Ex In $Excl
   $Archivos=FilterArray($archivos,$Ex)
Next  

break on

$Archivos =
'e:\dir3\lis.doc',
'c:\temp\file1.xls',
'c:\programfiles\prog1\file1.mdb',
'c:\windows\text.doc',
'd:\program2\dir3\text.jar'

$excl="text","file1"

? "-------- Before -----------"
for each $f in $Archivos
   ? $f
next

For Each $Ex In $Excl
   $Archivos=FilterArray($Archivos,$Ex)
Next 

? ? ? "-------- After -----------"
for each $f in $Archivos
   ? $f
next


Function FilterArray($array,$find, optional $inclusive)
   Dim $lf, $t, $l, $sp
   $lf=chr(10) $sp=chr(32)
   If Not VarType($Array) & 8192    Exit(1)        EndIf
   for each $l in $array
      if (instr($l,$find) and     $inclusive and trim($l)> $sp) OR
         (not instr($l,$find) and not $inclusive and trim($l)> $sp)
         
         $t=$t+$lf+$l
      
      endif
   next
   $FilterArray=split(substr($t,2),$lf)
EndFunction

Quote:

---

-------- Before -----------
e:\dir3\lis.doc
c:\temp\file1.xls
c:\programfiles\prog1\file1.mdb
c:\windows\text.doc
d:\program2\dir3\text.jar


-------- After -----------
e:\dir3\lis.doc

---