回答編集履歴
2
微調整
answer
CHANGED
|
@@ -26,7 +26,6 @@
|
|
|
26
26
|
Set fs = CreateObject("Scripting.FileSystemObject")
|
|
27
27
|
Set fsObj = fs.GetFolder(MyPath)
|
|
28
28
|
For Each MyObj In fsObj.SubFolders
|
|
29
|
-
'
|
|
30
29
|
plngRowCount = plngRowCount + 1
|
|
31
30
|
Cells(plngRowCount, intLayer + 0) = MyObj.Name
|
|
32
31
|
Cells(plngRowCount, intLayer + 1) = MyObj.DateCreated
|
|
@@ -35,13 +34,11 @@
|
|
|
35
34
|
Call 自己参照(MyObj.Path, intLayer)
|
|
36
35
|
Next
|
|
37
36
|
For Each MyObj In fsObj.Files
|
|
38
|
-
'
|
|
39
37
|
plngRowCount = plngRowCount + 1
|
|
40
38
|
Cells(plngRowCount, intLayer + 0) = MyObj.Name
|
|
41
39
|
Cells(plngRowCount, intLayer + 1) = MyObj.DateCreated
|
|
42
40
|
Cells(plngRowCount, intLayer + 2) = MyObj.DateLastAccessed
|
|
43
41
|
Cells(plngRowCount, intLayer + 3) = MyObj.DateLastModified
|
|
44
|
-
'
|
|
45
42
|
Next
|
|
46
43
|
Set fs = Nothing
|
|
47
44
|
End Function
|
1
参考資料
answer
CHANGED
|
@@ -45,4 +45,6 @@
|
|
|
45
45
|
Next
|
|
46
46
|
Set fs = Nothing
|
|
47
47
|
End Function
|
|
48
|
-
```
|
|
48
|
+
```
|
|
49
|
+
(参考資料)
|
|
50
|
+
[https://teratail.com/questions/281147](https://teratail.com/questions/281147)
|