回答編集履歴
2
微調整
test
CHANGED
|
@@ -54,8 +54,6 @@
|
|
|
54
54
|
|
|
55
55
|
For Each MyObj In fsObj.SubFolders
|
|
56
56
|
|
|
57
|
-
'
|
|
58
|
-
|
|
59
57
|
plngRowCount = plngRowCount + 1
|
|
60
58
|
|
|
61
59
|
Cells(plngRowCount, intLayer + 0) = MyObj.Name
|
|
@@ -72,8 +70,6 @@
|
|
|
72
70
|
|
|
73
71
|
For Each MyObj In fsObj.Files
|
|
74
72
|
|
|
75
|
-
'
|
|
76
|
-
|
|
77
73
|
plngRowCount = plngRowCount + 1
|
|
78
74
|
|
|
79
75
|
Cells(plngRowCount, intLayer + 0) = MyObj.Name
|
|
@@ -83,8 +79,6 @@
|
|
|
83
79
|
Cells(plngRowCount, intLayer + 2) = MyObj.DateLastAccessed
|
|
84
80
|
|
|
85
81
|
Cells(plngRowCount, intLayer + 3) = MyObj.DateLastModified
|
|
86
|
-
|
|
87
|
-
'
|
|
88
82
|
|
|
89
83
|
Next
|
|
90
84
|
|
1
参考資料
test
CHANGED
|
@@ -93,3 +93,7 @@
|
|
|
93
93
|
End Function
|
|
94
94
|
|
|
95
95
|
```
|
|
96
|
+
|
|
97
|
+
(参考資料)
|
|
98
|
+
|
|
99
|
+
[https://teratail.com/questions/281147](https://teratail.com/questions/281147)
|