質問編集履歴
1
誤字の修正をいたしました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -63,8 +63,8 @@
|
|
|
63
63
|
|
|
64
64
|
End With
|
|
65
65
|
|
|
66
|
-
'MsgBox Fname C:\Users\kanas\Documents\HDYDBB04\HDTDBB04_test
|
|
67
66
|
|
|
67
|
+
|
|
68
68
|
'参照設定
|
|
69
69
|
'Dim FSO As Object, Folder As Variant, File As Variant
|
|
70
70
|
Set FSO = CreateObject("Scripting.FileSystemObject")
|
|
@@ -89,7 +89,7 @@
|
|
|
89
89
|
End If
|
|
90
90
|
Next
|
|
91
91
|
|
|
92
|
-
|
|
92
|
+
|
|
93
93
|
|
|
94
94
|
|
|
95
95
|
'**********************************************************************
|