tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル GetObject
投稿日: 2008/06/26(Thu) 10:15
投稿者VB
☆VB☆
With GetObject("winmgmts:\root\default:StdRegProv")
    Dim keyList() As Variant, varKey As Variant, varValue As Variant
    .EnumKey HKEY_LOCAL_MACHINE, subkey, keyList
    For Each varKey In keyList
        If .GetStringValue(HKEY_LOCAL_MACHINE, _
            subkey & "\" & varKey, KeyName, varValue) = 0 Then
            略
        End If
    Next
End With

この文でレジストリのサブキーの名前を取得するプログラムを書いたのですが
keyListにその取得したサブキー名が入るわけですが
もしもそこに何も入ってこなかった場合、
if keyList = "" then
    For Each varKey In keyList
       If .GetStringValue(HKEY_LOCAL_MACHINE, _
            subkey & "\" & varKey, KeyName, varValue) = 0 Then
            略
        End If
    Next
end if
としてkeyListに何も入っていなかったらfor文は実行せずにしようと思ったのですが
型が違うようで実行できません。
keyListにサブキー名が入ってこない場合に、for文を実行させないプログラムの
書き方を教えてください。
宜しくお願い致します。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。