I am trying to do a simple enum of a directory and I am only returning a "." as the results. Can someone see what I am doing wrong.
Code:
  $username=Dir  ($nodepath)

     While $username <> "" AND @ERROR = 0

     	?$username

		If NOT InStr ($username,".")

			decrypt()

			Select

				Case $cboUserSort.Text = "Name"

					$fullname=ReadProfileString ($nodepath+$username,"Primary","Fullname")

					If InStr($fullname,$txtFind.text)

					$item=$listUsers.items.add 

 					$Item.SubItems(0).Text = ($transuserid)

 					$Item.SubItems(1).Text = ($fullname)

 				Case $cboUserSort.Text = "User ID#" 

 					If InStr($transuserid,$txtFind.text)

					?"Find User ID ="$Find

					$item=$listUsers.items.add 

 					$Item.SubItems(0).Text = ($transuserid)

 					$Item.SubItems(1).Text = ReadProfileString ($nodepath+$username,"Primary","Fullname")

			EndSelect

                   EndIf

		$username = Dir("")

		Loop



The Decrypt () function will translate a numeric file name to a valid Network ID ($transuserid).
_________________________
I haven't failed. I just found another way that did not work.