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)

Break ON

$=SetOption("WrapAtEOL","ON")

 

Global $iRecursiveDepth

Global $oShell

 

$oShell=createobject("shell.application") 

 

drivescan("\\CLIENTPC\c$") 

"Done." ?

 

Function drivescan($sPath) 

	Dim $oItem

 

	For Each $oItem in $oShell.namespace($sPath).items 

		If $oItem.isfolder 

			$iRecursiveDepth=$iRecursiveDepth+1

			"New recursion <"+$iRecursiveDepth+"> "+$oItem.path ?

			drivescan($oItem.path) 

			$iRecursiveDepth=$iRecursiveDepth-1

		EndIf 

	Next 

	Exit 0

EndFunction 

Break ON
$=SetOption("WrapAtEOL","ON")
 
Global $iRecursiveDepth
Global $oShell
 
$oShell=createobject("shell.application") 
 
drivescan("\\SGB007968\c$") 
"Done." ?
 
Function drivescan($sPath) 
	Dim $oItem
 
	For Each $oItem in $oShell.namespace($sPath).items 
		If $oItem.isfolder 
			$iRecursiveDepth=$iRecursiveDepth+1
			"New recusion <"+$iRecursiveDepth+"> "+$oItem.path ?
			drivescan($oItem.path) 
			$iRecursiveDepth=$iRecursiveDepth-1
		Else
			If 2799<$oItem.size AND 2901>$oItem.size 
				"*** File match "+$oItem.size+" "+$oItem.path ? 
			EndIf 
		EndIf
	Next 
	Exit 0
EndFunction 

If $oItem.isfolder

If $oItem.isfolder AND Not InStr($oItem.path,"Nethood")