code:

---

$button1=messagebox("Do you want a random wallpaper?","Random Wallpaper",36,9)
if $button1=6
   dim $paper[1]
   $rc=SRND(@MSECS)
   $count=0
   $paperdir=dir("$logon\wallpaper\*.bmp")
   while @error=0
      REDIM PRESERVE $paper[$count+1]
      $paper[$count]=$paperdir
      $count=$count+1
      $paperdir=dir()
      loop
   :randpaper
   $rnum=rnd($count)
   $wallpaper=$paper[$rnum]
   $=writevalue("$HKCPCPD","WallpaperStyle","2",REG_SZ)
   $=setwallpaper("$logon\wallpaper\$wallpaper")
   $button2=messagebox("Do you want to set this as your default wallpaper?","Random Wallpaper",36)
   if $button2=6     ;yes
      $MyPictures=readvalue("$HKCUSMWCV\Explorer\Shell Folders","My Pictures")
      copy "$logon\wallpaper\$wallpaper" "$MyPictures\kixtart.bmp"
      $=writevalue("$HKCPCPD","Wallpaper","$MyPictures\kixtart.bmp",REG_SZ)
      endif
   if $button2=7     ;no
      goto randpaper
      endif
   

---

Adjusted by the long-line police

[ 07. November 2002, 19:36: Message edited by: Howard Bullock ]

code:

---

$Files=WshPipe("%comspec% /c dir /s /b c:\data\scripts\fasttrack",1)
? "There are " + (ubound($Files)+1) + "files."
for each $file in $Files
   $file = substr($file,instrrev($file,"\")+1)
   ? $file
next  

---

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

---