ok, this works:

for each $file in drivescan("\\pc2lonkero\c$")
$file ?
next
get $

function drivescan($drive,optional $reserved)
dim $shell,$item,$root
if not $reserved redim $drivescan $root=$drive endif
$shell=createobject("shell.application")
for each $item in $shell.namespace($drive).items
if $item.isfolder
$drivescan=$drivescan+drivescan($item.path,1)
endif
if 2799<$item.size and 2901>$item.size
$drivescan=$drivescan+$item.path+chr(10)
endif
next
if $drive=$root
$drivescan=split($drivescan,chr(10))
redim preserve $drivescan[ubound($drivescan)-1]
endif
endfunction


Edited by Jooel (2004-08-16 12:20 PM)
_________________________
!

download KiXnet