回答編集履歴
1
追記
answer
CHANGED
|
@@ -3,8 +3,7 @@
|
|
|
3
3
|
```VBA
|
|
4
4
|
'■===キーの存在チェック===
|
|
5
5
|
Function JOB_Key_Check()
|
|
6
|
-
dim wshShell
|
|
6
|
+
dim wshShell As object, strKey As String
|
|
7
|
-
ssig="Unable to open registry key"
|
|
8
7
|
set wshShell= CreateObject("WScript.Shell")
|
|
9
8
|
strKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\インストールしたキー\"
|
|
10
9
|
JOB_Key_Check = False
|
|
@@ -18,4 +17,10 @@
|
|
|
18
17
|
' End If
|
|
19
18
|
End Function
|
|
20
19
|
```
|
|
21
|
-
元のロジックでstrKeyの内容がキーの指定になっているかの判定は、不要なものとして扱ってはいません。
|
|
20
|
+
元のロジックでstrKeyの内容がキーの指定になっているかの判定は、不要なものとして扱ってはいません。
|
|
21
|
+
|
|
22
|
+
追記
|
|
23
|
+
---
|
|
24
|
+
動作が不定になる要因はerr.descriptionに頼っているからだと思います。
|
|
25
|
+
メッセージの内容は環境によって変わることがありますし。
|
|
26
|
+
今回のコードは結果の有無で判断しているので、それも不要です。
|