btw..
I just threw this together, I may post this to UDF, but I don't know how many DIR UDFs we need.
code:
break on
call \\a06\logon\udf.kix
$dir=Enumdir("\\a06\logon\wallpaper","*.bmp")
for each $file in $dir
? $file
next
exit
Function Enumdir($directory, optional $mask, Optional $Subdir)
dim $dircmd
if $subdir $subdir='/s' endif
$dircmd='%comspec% /c dir "$directory\$mask" /b $subdir'
if exist("$directory")
$Enumdir=WshPipe($dircmd,1)
else
exit 1
endif
endfunction
