Break On

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

$dir       = 'C:\Documents and Settings\joe.doe\Desktop'
$path      = DirList($dir,1+2+4)
$fileExt   = ".mp3",
             ".avi",
             ".jpg",
             ".gif"

For $x=0 to ubound($path)
  If GetFileAttr($path[$x]) & 16
    For Each $y in $fileExt
      ? $path[$x] + '*' + $y
      $z = Dir($path[$x] + '*' + $y)
      If @Error <> 0
        ? @Error + ':  ' + @SERROR
      Endif
      While $z <> "" and @ERROR = 0
        ? $z
        $z = Dir()
      Loop
    Next
  Endif
Next


sleep 20

C:\Documents and Settings\cameron.wilson\Desktop\KiX\*.jpg
2
C:\Documents and Settings\cameron.wilson\Desktop\KiX\*.gif
2
C:\Documents and Settings\cameron.wilson\Desktop\KiX\Archive\*.mp3
2
C:\Documents and Settings\cameron.wilson\Desktop\KiX\Archive\*.avi
2
C:\Documents and Settings\cameron.wilson\Desktop\KiX\Archive\*.jpg
2
C:\Documents and Settings\cameron.wilson\Desktop\KiX\Archive\*.gif
2

Break On

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

$dir       = 'C:\Documents and Settings\cameron.wilson\Desktop'
$path      = DirPlus($dir,"/ad /s")
$fileExt   = ".mp3",
             ".avi",
             ".jpg",
             ".gif"

For Each $x in $path
  For Each $y in $fileExt
    $z = Dir($x+'\*'+$y)
    ? $x+'\*'+$y
    If @Error <> 0
      ? @Error + ':  ' + @SERROR
    Endif
    While $z <> "" and @ERROR = 0
      ? $z
    Loop
  Next
Next

sleep 20

Break On

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

$dir       = '%USERPROFILE%\Desktop'
$path      = DirPlus($dir,"/ad /s")
$fileExt   = ".mp3",
             ".avi",
             ".jpg",
             ".gif"

For Each $x in $path
  For Each $y in $fileExt
    $z = Dir($x+'\*'+$y)
    While @ERROR = 0
     ? $z
     $z = Dir()
    Loop
  Next
Next

sleep 20

C:\>kix32 test

loading.gif
lock-broken.gif
lock-insecure.gif
lock-secure.gif
cool_n.gif
cry_n.gif
money_n.gif
sealed_n.gif
smile_n.gif
surprise_n.gif
undecided_n.gif
wink_n.gif
yell_n.gif
migrate.gif
profileicon-large.gif
img-align-bottom.gif
img-align-left.gif
img-align-middle.gif
...

Break On

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

$dir       = '%USERPROFILE%\Desktop'
$path      = DirPlus($dir,"/ad /s")
$fileExt   = ".mp3",
             ".avi",
             ".jpg",
             ".gif"

For Each $x in $path
  For Each $y in $fileExt
    $z = Dir($x+'\*'+$y)
    While @ERROR = 0
     ? $z
     $z = Dir()
    Loop
  Next
Next

;sleep 20

Function DirPlus($path,optional $Options, optional $f, optional $sfflag)
	If not vartype($f)	DIM $f		EndIf
	If not vartype($sfflag)	DIM $sfflag	EndIf

	DIM $file, $i, $temp, $item, $ex1, $mask,$mask1,$maskArray,$maskarray1,
	$ex2, $code, $CodeWeight, $targetWeight, $weight, $masktrue
	DIM $tarray[0]

	$ex1 = SetOption(Explicit,on)
	$ex2 = SetOption(NoVarsInStrings,on)
	$codeWeight = 0

	If not Exist($path) 
		$temp = SetOption(Explicit,$ex1)
		$temp = SetOption(NoVarsInStrings,$ex2)
		Exit @ERROR
	EndIf

	If not vartype($f)
		$f = CreateObject("Scripting.FileSystemObject").getfolder($path)
	EndIf
	If @ERROR 
		$temp = SetOption(Explicit,$ex1)
		$temp = SetOption(NoVarsInStrings,$ex2)
		Exit @ERROR
	EndIf

 	For Each $temp In Split($options,"/")
		$temp=Trim($temp)
		Select
		   Case left($temp,1) = "s"
			If not vartype($sfflag)
				If Val(right($temp,-1)) = 0
					$sfflag = -1
				Else
					$sfflag = Val(right($temp,-1))
				EndIf	
			EndIf
		   Case Left($temp,1) = "a"
			Select
			   Case Right($temp,-1)="d"
				$codeWeight = $codeWeight + 1
				$temp = "if $file.attributes & 16 " ;"if $file.type = 'File Folder' "
			   Case Right($temp,-1)="-d"
				$codeWeight = $codeWeight + 1
				$temp = "if ($file.attributes & 16)=0 " ;"if $file.type <> 'File Folder' "
			   Case Right($temp,-1)="s"
				$codeWeight = $codeWeight + 1
				$temp = "if $file.attributes & 4 "
			   Case Right($temp,-1)="-s"
				$codeWeight = $codeWeight + 1
				$temp = "if ($file.attributes & 4)=0 "
			   Case Right($temp,-1)="h"
				$codeWeight = $codeWeight + 1
				$temp = "if $file.attributes & 2 "
			   Case Right($temp,-1)="-h"
				$codeWeight = $codeWeight + 1
				$temp = "if ($file.attributes & 2)=0 "
			   Case Right($temp,-1)="r"
				$codeWeight = $codeWeight + 1
				$temp = "if $file.attributes & 1 "
			   Case Right($temp,-1)="-r"
				$codeWeight = $codeWeight + 1
				$temp = "if ($file.attributes & 1)=0 "
			   Case Right($temp,-1)="a"
				$codeWeight = $codeWeight + 1
				$temp = "if $file.attributes & 32 "
			   Case Right($temp,-1)="-a"
				$codeWeight = $codeWeight + 1
				$temp = "if ($file.attributes & 32)=0 "
			EndSelect
			$code = $temp + "$weight=$weight+1 endif" +@CRLF + $code

		   Case Left($temp,1) = "m"
			$maskarray = Split(Right($temp,-2),"|")
			$codeweight = $codeweight + 1
			$code = "$masktrue=0 for Each $mask in $maskarray if instr($file.name,$mask) $masktrue=1 " +
			"EndIf Next If $masktrue $weight=$weight+1 endif" + @CRLF +$code
		   Case Left($temp,1) = "f"
			$maskarray1 = Split(Right($temp,-2)," ")
			$codeweight = $codeweight + 1
			$code = "$masktrue=0 for Each $mask1 in $maskarray1 if substr($file.name,Instrrev($file.name,'.')+1)" +
			"=$mask1 $masktrue=1 EndIf Next If $masktrue $weight=$weight+1 endif" + @CRLF +$code

		EndSelect
	Next
	$code = "$weight = 0 $targetWeight = " + $codeweight + @CRLF + $code
	$code = $code + "if $weight = $targetweight Exit 1 endif"

	For Each $file In $f.subfolders
		If Execute($code)
			$tarray[$i] = $file
			$i = $i + 1
			ReDIM preserve $tarray[$i]
		EndIf
		If $sfflag
			$temp = dirplus($file,$options,$file,$sfflag-1)
			For Each $item In $temp
				$tarray[$i] = $item
				$i = $i + 1
				ReDIM preserve $tarray[$i]
			Next
		EndIf
	Next
	For Each $file In $f.files
		If Execute($code)
			$tarray[$i] = $file
			$i = $i + 1

			ReDIM preserve $tarray[$i]
		EndIf
	Next

	If $i
		ReDIM preserve $tarray[$i-1]
		$i=0
	Else
		$tarray = 0
	EndIf

	$dirplus = $tarray
	$temp = SetOption(Explicit,$ex1)
	$temp = SetOption(NoVarsInStrings,$ex2)
	Exit @ERROR
EndFunction

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

$dir       = 'C:\Documents and Settings\cameron.wilson\Desktop'
dim $paths

for each $file in DirPlus($dir,"/s /f mp3 avi jpg gif")
  $path = left($file.path, instrrev($file.path,"\"))
  if -1 = ascan($paths,$path)
    redim preserve $paths[ubound($paths)+1]
    $paths[ubound($paths)] = $path
    ? $path
  endif
Next

"press any key to quit "
get $

Quote:

---

my question would be, why you still use dir???

---

My guess is because he's semi-new to KiXtart and not a Splitting/Redimming BASTA like you.
 
Haven't tried to run it, but looks good.

Break On

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

$dir       = '%USERPROFILE%\Desktop\test'
$path      = DirPlus($dir,"/ad /s /f mp3 wmv")

? $dir

For Each $x in $path
  ? $x
Next

Quote:

---

Quote:

---

my question would be, why you still use dir???

---

My guess is because he's semi-new to KiXtart and not a Splitting/Redimming BASTA like you.
 
Haven't tried to run it, but looks good.

---