windowsのフォルダ構成

ADドメインを統合しようと思ったんだけど，大変なのがファイルサーバ．アクセス権付与ルールを見直したり，付け直したりが必要．で，今までどうなってたんだろうと思ってファイルサーバを見てみたけど，頭がくらくらして来た．とりあえず，人に説明したり依頼したりするためにはexcelにまとめる必要があるだろうと思って作業を始めたんだけど，30秒ほどで飽きた．
今必要なのは，

フォルダを指定したらサブフォルダの名前と最終アクセス日の一覧をexcelのシートに出してくれるツールだ

ってことで，こんなのを作ってみた．参考にしたのは第6回 指定フォルダ内のファイル名一覧をExcelに書き出す | 日経 xTECH（クロステック）

Sub MakeFileList()
  Target = InputBox("ディレクトリ名入力", "ディレクトリ指定", "C:\Windows")
  Set FS = CreateObject("Scripting.FileSystemObject")
  Set Fol = FS.GetFolder(Target)
  Set Fil = Fol.SubFolders
  
  ThisWorkbook.ActiveSheet.Range("B3") = "フォルダ名"
  ThisWorkbook.ActiveSheet.Range("C3") = "フォルダ種別"
  ThisWorkbook.ActiveSheet.Range("D3") = "最終更新日"
  ThisWorkbook.ActiveSheet.Range("E3") = "説明"
  ThisWorkbook.ActiveSheet.Range("B1:E1").MergeCells = True
  ThisWorkbook.ActiveSheet.Range("B1") = Target
  
  i = 4
  For Each Fx In Fil
    sFile = Fx.Name
    ThisWorkbook.ActiveSheet.Cells(i, 2) = sFile
    sFType = Fx.Type
    ThisWorkbook.ActiveSheet.Cells(i, 3) = sFType
    sLMod = Fx.DateLastModified
    ThisWorkbook.ActiveSheet.Cells(i, 4) = sLMod
    i = i + 1
  Next
End Sub

美しくねー ＞＜