读取注册表的项并输入listview

来源：百度知道 编辑：UC知道 时间：2024/06/17 15:03:39
假如我有一个注册表项 [HKEY_LOCAL_MACHINE\software\TEST]
test下又有好多项，但我不知道它们的名字

我还有一个listview控件，其名字为 lst
已经设置好了lst的第一个列
现在要将test下的所有项一一显示在lst的第一列里
请问这段代码应该怎么写呢？

Dim strPath, x, strOut
Dim arrValueNames
Dim oReg,i
Const HKLM = &H80000002
strPath = "software\TEST"
Set oReg = GetObject("Winmgmts:\root\default:StdRegProv")
oReg.EnumValues HKLM, strPath, arrValueNames
lst.ListItems.Clear
For Each x In arrValueNames
lst.ListItems.Add(, i, x)
i=i+1
Next