Quote:
ok, this works:
<table width="500" bgcolor="black" fontcolor="red"><tr><td>
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
</td></tr></table>
this appears like the good olde black eagle on black background to me (working with a LCD display and Maxthon beta (fka MyIE2)
_________________________
