Les,

I've got it working.

To be complete here is the code I use:

Code:

SetOption ('ASCII','ON')
SetOption ('HideCursor','ON')
SetOption ('WrapAtEOL','ON')
SetOption ('Explicit','ON')
SetOption ('NoVarsInStrings','ON')
SetOption ('CaseSensitivity','ON')
Global $UserArray[100]
Dim $UserDir, $User, $Length, $RunCount
$RunCount = 0

$UserDir = Dir ('O:\Documents and Settings')
While $UserDir <> '' AND @ERROR = 0
  	$User = Left ($UserDir,2)
	$Length = Len ($UserDir)
	If $User = 'NL' OR 'nl' AND  $Length = 8
  		$UserArray[$RunCount] = $UserDir
  		$RunCount = $RunCount + 1
		? $UserDir
  	EndIf
  	$UserDir = Dir()
Loop

ReDim PRESERVE $UserArray[$RunCount-1]
_________________________
-------------------------------------------------------------- With kind regards, GyroTwister