9.4.2 IsExistRegKeyレジストリサブキーが存在するかどうかを調べる

機能
レジストリサブキーが存在するかどうかをチェックし,結果を真(True)か偽(False)で返します。
形式

IsExistRegKey ( RegKey , SubKey )

指定項目
RegKey
レジストリキーを指定します。
この値は次のどれかになります。
  • HKEY_CLASSES_ROOT
  • HKEY_CURRENT_USER
  • HKEY_LOCAL_MACHINE
  • HKEY_USERS
SubKey
チェックするレジストリサブキーを文字列,または値を格納した変数名で指定します。
説明
指定されたレジストリサブキーが存在するかどうかをチェックし,結果をコマンドの実行結果として返します。存在する場合は真(True)を,それ以外の場合は偽(False)を返します。

' JP1/Scriptのレジストリサブキーが存在していたら,
' 中身が空かどうかを調べる。
Dim  regKey ,subKey ,isEmp
regKey = HKEY_LOCAL_MACHINE
subKey = "Software¥Hitachi¥JP1/Script"
If  IsExistRegKey ( regKey ,subKey ) = True  Then
 isEmp = IsEmptyReg( regKey ,subKey)
 If isEmp = True Then
    MessageBox( "Empty !" )
 Else
    MessageBox ( "Not Empty !" )
 End
End

対象バージョン
JP1/Script 01-00以降