Sub Folders i Reg.....

Jeg vil blive meget glad hvis en ville give mig et link til en kode der viser alle subfolders i en Dir i Reg man selv angiver med en Variabel (HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\)

Jeg har ellers kigget lidt på denne:

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

Private Sub Form_Load()
    On Error GoTo handelgetdirvalues
    Dim SubKey_Num As Integer
    Dim SubKey_Name As String
    Dim length As Long
    Dim ReturnArray() As Variant
   
    If Not OpenRegOk Then Exit Sub
    \'Get the Dir List

SubKey_Name = \"HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\\"
SubKey_Num = 0
    Do
        length = 256
SubKey_Name = Space$(length)


    If RegEnumKey(hKey, SubKey_Num, SubKey_Name, length) <> 0 Then
        Exit Do
    End If


SubKey_Name = Left$(SubKey_Name, InStr(SubKey_Name, Chr$(0)) - 1)
    ReDim Preserve ReturnArray(SubKey_Num) As Variant
    ReturnArray(SubKey_Num) = SubKey_Name

SubKey_Num = SubKey_Num + 1
Loop
Exit Sub
handelgetdirvalues:
End Sub

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

Men den virker ikke......

ellers prøv at se:
http://www.planetsourcecode.com/xq/ASP/txtCodeId.28400/lngWId.1/qx/vb/scripts/ShowCode.htm
http://www.planetsourcecode.com/xq/ASP/txtCodeId.1987/lngWId.1/qx/vb/scripts/ShowCode.htm