質問編集履歴
1
誤字
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -12,19 +12,19 @@
|
|
|
12
12
|
Dim objShell, ObjFolder, objFiles, ea, filename, FSO, EXEPROGRAM, oExec
|
|
13
13
|
|
|
14
14
|
'txtファイルのあるフォルダ名
|
|
15
|
-
Const TRGTFOLDER ="C:\
|
|
15
|
+
Const TRGTFOLDER ="C:\aaa\bbb\"
|
|
16
16
|
|
|
17
17
|
Set objShell = WScript.CreateObject("Wscript.Shell")
|
|
18
18
|
Set objFSO = CreateObject("Scripting.FileSystemObject")
|
|
19
19
|
|
|
20
20
|
'ソフトのパスを変数に格納
|
|
21
|
-
If objFSO.FileExists("C:\Program Files\
|
|
21
|
+
If objFSO.FileExists("C:\Program Files\ccc\ddd\abc.EXE") = True then
|
|
22
|
-
EXEPROGRAM = "C:\Program Files\
|
|
22
|
+
EXEPROGRAM = "C:\Program Files\ccc\ddd\abc.EXE"
|
|
23
23
|
Else
|
|
24
|
-
If objFSO.FileExists("C:\Program Files (x86)\
|
|
24
|
+
If objFSO.FileExists("C:\Program Files (x86)\ccc\ddd\abc.EXE") = True then
|
|
25
|
-
EXEPROGRAM ="C:\Program Files (x86)\
|
|
25
|
+
EXEPROGRAM ="C:\Program Files (x86)\ccc\ddd\abc.EXE"
|
|
26
26
|
Else
|
|
27
|
-
MsgBox"
|
|
27
|
+
MsgBox"abc.exeが存在しません"
|
|
28
28
|
WScript.Quit
|
|
29
29
|
End if
|
|
30
30
|
End if
|
|
@@ -36,7 +36,7 @@
|
|
|
36
36
|
For Each ea In objFiles
|
|
37
37
|
If LCase(Right(ea,4))=".txt" Then
|
|
38
38
|
filename= ea
|
|
39
|
-
MsgBox(ea) & vbCrLf & vbCrLf & "このファイルを読み込んで
|
|
39
|
+
MsgBox(ea) & vbCrLf & vbCrLf & "このファイルを読み込んでabc
|
|
40
40
|
.exeを起動します"
|
|
41
41
|
Exit For
|
|
42
42
|
End If
|