Dim $Indx, $Keyname, $KeyArr
$Indx = 0

While @ERROR = 0
$Keyname = ENUMKEY("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\", $Indx)
If $Keyname <> ""
? "Name found: $Keyname"
$KeyArr[$Indx] = $Keyname
$Indx = $Indx + 1
Endif
Loop

If NOT @LOGONMODE
Break On
Else
Break Off
EndIf
Dim $RC
$RC = SetOption("Explicit","On")
$RC = SetOption("NoVarsInStrings","On")
$RC = SetOption("NoMacrosInStrings","On")
$RC = SetOption("WrapAtEOL","On")

Dim $Indx, $Keyname, $KeyArr[]
$Indx = 0

While @ERROR = 0
$Keyname = EnumKey( "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\", $Indx)
If $Keyname <> ""
? "Name found: "+$Keyname
ReDim Preserve $KeyArr[$Indx]
$KeyArr[$Indx] = $Keyname
$Indx = $Indx + 1
EndIf
Loop
? "Number of keys found: "+(Ubound($KeyArr)+1)
For Each $Keyname In $KeyArr
? "- "+$Keyname
Next

Dim $sKey
$sKey="HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"

$Keyname = EnumKey( $sKey, $Indx)
While @ERROR = 0
If $Keyname <> ""
? "Name found: "+$Keyname
ReDim Preserve $KeyArr[$Indx]
$KeyArr[$Indx] = $Keyname
$Indx = $Indx + 1
EndIf
$Keyname = EnumKey( $sKey, $Indx)
Loop

If NOT @LOGONMODE
Break On
Else
Break Off
EndIf

;I do not know the Break option, so I don't know why this is done

Dim $RC
$RC = SetOption("Explicit","On")
$RC = SetOption("NoVarsInStrings","On")
$RC = SetOption("NoMacrosInStrings","On")
$RC = SetOption("WrapAtEOL","On")

Dim $Indx, $Keyname, $KeyArr[] ;the brackets are for the declaration of an array , that's what I missed.

$Indx = 0

While @ERROR = 0
$Keyname = EnumKey( "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\", $Indx)

If $Keyname <> ""
? "Name found: "+$Keyname
ReDim Preserve $KeyArr[$Indx] ; Here is stated that the values in the array need to be saved
$KeyArr[$Indx] = $Keyname
$Indx = $Indx + 1
EndIf
Loop
? "Number of keys found: "+(Ubound($KeyArr)+1) ;what is the Ubound for? the plus 1 is because the array starts with 0.
For Each $Keyname In $KeyArr ? "- "+$Keyname ; this I can use to rerun the code for any subkeys.
Next

$MainKey = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"
? $MainKey

$Step1[] = ReadRegArr($MainKey)
? $Step1
For Each $Key in $Step1
$Ind2 = 0
Redim Preserve $Step2[]
$Step2[$Ind2] = ReadRegArr($MainKey + "\" + $Key)
? $Step2
? $Key
$Ind2 = $Ind2 + 1
? $Ind2
Next

Function ReadRegArr($RegKey)

Dim $Indx, $CurrentKeyname, $KeyArr[], $Regkey
$Indx = 0

While @ERROR = 0
$Keyname = ENUMKEY($RegKey, $Indx)
If $Keyname <> ""
? "Name found: $Keyname"
Redim Preserve $KeyArr[$Indx]
$KeyArr[$Indx] = $Keyname
$Indx = $Indx + 1
Endif
Loop
? "Number of keys found: "+(Ubound($KeyArr)+1)
For Each $Keyname In $KeyArr
? "- "+$Keyname
Next

EndFunction

Quote:

Richard,
I do not think there will be false positives, because when there is no key anymore, $Keyname will be "" and an error will be raised. The last loop will skip the If/EndIf because of the statement:
Code:
--------------------------------------------------------------------------------

If $Keyname <> ""

--------------------------------------------------------------------------------

Don't you think so?

Yes...and no

While that would work in this specific case there are two problems. The first is that the loop executes one more time that necessary. More importantly is that if the coder adds extra commands then there is a danger of causing a false positive on the error check.

Here is a very simple example. All that I've done is read an entry "FOO" from each of the subkeys. Assume that the entry will exist on some keys but not on others.

Here is the code:
Code:

Break ON
$Key = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"
  
"Method 1 (fails)"+@CRLF
"----------------"+@CRLF
$Indx=0
While @ERROR = 0
	$Keyname = EnumKey($Key, $Indx)	
	If $Keyname <> ""		
		"Name found: "+$Keyname+@CRLF
		ReDim Preserve $KeyArr[$Indx]	; Here is stated that the values in the array need to be saved 	
		$KeyArr[$Indx] = $Keyname		
		"Value of 'FOO' in key is: "+ReadValue($Key+"\"+$Keyname,"FOO")+@CRLF
		$Indx=$Indx+1
	EndIf
Loop
  
@CRLF
"Method 2 (works)"+@CRLF
"----------------"+@CRLF
$Indx=0
$Keyname = EnumKey($Key, $Indx)	
While Not @ERROR
	"Name found: "+$Keyname+@CRLF
	ReDim Preserve $KeyArr[$Indx]	; Here is stated that the values in the array need to be saved 	
	$KeyArr[$Indx] = $Keyname		
	"Value of 'FOO' in key is: "+ReadValue($Key+"\"+$Keyname,"FOO")+@CRLF
	$Indx=$Indx+1
	$Keyname = EnumKey($Key, $Indx)	
Loop

And here is the output:
Code:

Method 1 (fails)
----------------
Name found: BACKUP OF Outlook
Value of 'FOO' in key is:
 
Method 2 (works)
----------------
Name found: BACKUP OF Outlook
Value of 'FOO' in key is:
Name found: Outlook
Value of 'FOO' in key is:
Name found: RH
Value of 'FOO' in key is:

As you can see, the error caused by the missing entry actually causes the loop to exit early in method 1. Method 2 does not suffer from this problem, and in addition does not iterate the loop for the error pass.

For this reason method 2 is recommended, especially for starters. Once you have the habit of coding loops this way you will avoid some of the confusing and hard to find errors that the alternative methods allow.

Break ON
$=SetOption("Explicit","ON")

Dim $sRootKey
$sRootKey="HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"

Dim $sMain,$sSub,$asMain,$asSub

$asMain=ReadRegArr($sRootKey)
For Each $sMain in $asMain
"Main key: "+$sMain+@CRLF
$asSub=ReadRegArr($sRootKey+"\"+$sMain)
For Each $sSub in $asSub
" Sub key: "+$sSub+@CRLF
Next
Next
Exit 0

Function ReadRegArr($sKey)
Dim $i,$sSubKey

Redim $ReadRegArr[0]

$i=0
$sSubKey=EnumKey($sKey,$i)
While Not @ERROR
ReDim Preserve $ReadRegArr[$i]
$ReadRegArr[$i]=$sSubKey
$i=$i+1
$sSubKey=EnumKey($sKey,$i)
Loop
If @ERROR=259 Exit 0 Else Exit @ERROR EndIf
EndFunction

If NOT @LOGONMODE
Break On
Else
Break Off
EndIf
Dim $RC
$RC = SetOption("Explicit","On")
$RC = SetOption("NoVarsInStrings","On")
$RC = SetOption("NoMacrosInStrings","On")
$RC = SetOption("WrapAtEOL","On")

Dim $arrElements
$arrElements = "One","Two","Three"
? Ubound($arrElements)
For $rc = 0 to Ubound($arrElements)
? "- "+$RC+": "+$arrElements[$RC]
Next

Break ON
$=SetOption("Explicit","ON")

If RedirectOutput("test.txt") = 0
EndIf

Dim $sRootKey
$sRootKey="HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\"

Dim $sMain,$sSub,$asMain,$asSub,$sSub2,$asSub2,$Val

$asMain=ReadRegArr($sRootKey)
For Each $sMain in $asMain
;"Main key: "+$sMain+@CRLF
$asSub=ReadRegArr($sRootKey+"\"+$sMain)
For Each $sSub in $asSub
;" Sub key: "+$sSub+@CRLF
$asSub2=ReadRegValArr($sRootKey+"\"+$sMain+"\"+$sSub)
For Each $sSub2 in $asSub2
;" sub - Sub key: "+$sSub2+@CRLF
$Val = ReadValue($sRootKey+"\"+$sMain+"\"+$sSub, $sSub2)
If INSTR($Val,".pst")
? "Value data: " + $Val+@CRLF
EndIf
Next
Next
Next
Exit 0

Function ReadRegArr($sKey)
Dim $i,$sSubKey

Redim $ReadRegArr[0]

$i=0
$sSubKey=EnumKey($sKey,$i)
While Not @ERROR
ReDim Preserve $ReadRegArr[$i]
$ReadRegArr[$i]=$sSubKey
$i=$i+1
$sSubKey=EnumKey($sKey,$i)
Loop
If @ERROR=259 Exit 0 Else Exit @ERROR EndIf
EndFunction

Function ReadRegValArr($sVKey)
Dim $iV,$sVSubKey

Redim $ReadRegValArr[0]

$iV=0
$sVSubKey=EnumValue($sVKey,$iV)
While Not @ERROR
ReDim Preserve $ReadRegValArr[$iV]
$ReadRegValArr[$iV]=$sVSubKey
$iV=$iV+1
$sVSubKey=EnumValue($sVKey,$iV)
Loop
If @ERROR=259 Exit 0 Else Exit @ERROR EndIf
EndFunction

Function ReadRegValArr2($sV2Key,$sV2Value)
Dim $iV2,$sV2SubKey

Redim $ReadRegValArr2[0]

$iV2=0
$sV2SubKey=ReadValue($sV2Key,$iV2)
While Not @ERROR
ReDim Preserve $ReadRegValArr2[$iV2]
$ReadRegValArr2[$iV2]=$sV2SubKey
$iV2=$iV2+1
$sV2SubKey=ReadValue($sV2Key,$iV2)
Loop
If @ERROR=259 Exit 0 Else Exit @ERROR EndIf
EndFunction