回答編集履歴
1
Test_Sample_Miniature部分
answer
CHANGED
|
@@ -1,6 +1,6 @@
|
|
|
1
1
|
再回答。
|
|
2
2
|
```
|
|
3
|
-
Sub
|
|
3
|
+
Sub Test_Sample_Miniature()
|
|
4
4
|
Set ws = CreateObject("WScript.Shell")
|
|
5
5
|
'適当なネットワークフォルダへ変更。
|
|
6
6
|
ws.CurrentDirectory = "\192.168.3.4\test\"
|
|
@@ -129,7 +129,7 @@
|
|
|
129
129
|
|
|
130
130
|
End Function
|
|
131
131
|
|
|
132
|
-
Public Function
|
|
132
|
+
Public Function Test_Sample_Miniature() As Boolean
|
|
133
133
|
'-------------------------------------------
|
|
134
134
|
'適当なネットワークフォルダへ変更。
|
|
135
135
|
strDefFolderName = "\192.168.3.4\test"
|