質問編集履歴
1
誤字
test
CHANGED
File without changes
|
test
CHANGED
@@ -26,7 +26,7 @@
|
|
26
26
|
|
27
27
|
'txtファイルのあるフォルダ名
|
28
28
|
|
29
|
-
Const TRGTFOLDER ="C:\
|
29
|
+
Const TRGTFOLDER ="C:\aaa\bbb\"
|
30
30
|
|
31
31
|
|
32
32
|
|
@@ -38,19 +38,19 @@
|
|
38
38
|
|
39
39
|
'ソフトのパスを変数に格納
|
40
40
|
|
41
|
-
If objFSO.FileExists("C:\Program Files\
|
41
|
+
If objFSO.FileExists("C:\Program Files\ccc\ddd\abc.EXE") = True then
|
42
42
|
|
43
|
-
EXEPROGRAM = "C:\Program Files\
|
43
|
+
EXEPROGRAM = "C:\Program Files\ccc\ddd\abc.EXE"
|
44
44
|
|
45
45
|
Else
|
46
46
|
|
47
|
-
If objFSO.FileExists("C:\Program Files (x86)\
|
47
|
+
If objFSO.FileExists("C:\Program Files (x86)\ccc\ddd\abc.EXE") = True then
|
48
48
|
|
49
|
-
EXEPROGRAM ="C:\Program Files (x86)\
|
49
|
+
EXEPROGRAM ="C:\Program Files (x86)\ccc\ddd\abc.EXE"
|
50
50
|
|
51
51
|
Else
|
52
52
|
|
53
|
-
MsgBox"
|
53
|
+
MsgBox"abc.exeが存在しません"
|
54
54
|
|
55
55
|
WScript.Quit
|
56
56
|
|
@@ -74,7 +74,7 @@
|
|
74
74
|
|
75
75
|
filename= ea
|
76
76
|
|
77
|
-
MsgBox(ea) & vbCrLf & vbCrLf & "このファイルを読み込んで
|
77
|
+
MsgBox(ea) & vbCrLf & vbCrLf & "このファイルを読み込んでabc
|
78
78
|
|
79
79
|
.exeを起動します"
|
80
80
|
|