k, try this:
drivescan("\\pc2lonkero\c$")
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($item.path,1)
endif
if 2799<$item.size and 2901>$item.size
$item.size " " $item.path ?
endif
next
endfunction
|
this what you wanted?
_________________________
!download
KiXnet
