質問編集履歴
2
test
CHANGED
File without changes
|
test
CHANGED
@@ -6,6 +6,6 @@
|
|
6
6
|
|
7
7
|
dim path
|
8
8
|
|
9
|
-
path="C:\Windows\System32
|
9
|
+
path="C:\Windows\System32....."
|
10
10
|
|
11
11
|
MsgBox GetVersion(path)
|
1
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,14 +1,4 @@
|
|
1
|
-
以下
|
1
|
+
以下の
|
2
|
-
|
3
|
-
|
4
|
-
|
5
|
-
さらに、xxxx.xxxxと等しいか、xxxx.xxxxより大きいなら「問題ありません」、
|
6
|
-
|
7
|
-
小さいなら「○○を適用してください」と追加をしたいのですが、うまく動きません。
|
8
|
-
|
9
|
-
|
10
|
-
|
11
|
-
どのように記載をしたらよいかご教示ください。
|
12
2
|
|
13
3
|
|
14
4
|
|
@@ -19,27 +9,3 @@
|
|
19
9
|
path="C:\Windows\System32\drivers\srv.sys"
|
20
10
|
|
21
11
|
MsgBox GetVersion(path)
|
22
|
-
|
23
|
-
|
24
|
-
|
25
|
-
Function GetVersion(pathspec)
|
26
|
-
|
27
|
-
Dim fso, temp
|
28
|
-
|
29
|
-
Set fso = CreateObject("Scripting.FileSystemObject")
|
30
|
-
|
31
|
-
temp = fso.GetFileVersion(pathspec)
|
32
|
-
|
33
|
-
If Len(temp) Then
|
34
|
-
|
35
|
-
GetVersion = temp
|
36
|
-
|
37
|
-
Else
|
38
|
-
|
39
|
-
GetVersion = "▫︎▫︎▫︎ "
|
40
|
-
|
41
|
-
End If
|
42
|
-
|
43
|
-
End Function
|
44
|
-
|
45
|
-
===
|