|
初心者なので本を読んだり他の方の作ったものを参考にしながら自分のイメージにあうファイル一覧のVBAが出来ましたが、FSOで指定したフォルダからサブフォルダの中身まで全てエクセルに書き出せる記述がどうしても分かりません。是非教えてくださいお願いします。
Sub ファイル一覧()
Dim myFSO As New FileSystemObject
Dim myFolder As Folder
Dim myFiles As Files
Dim myFile As File
Dim i As Integer
'フォルダー取得
Dim Shell, myPath
Set Shell = CreateObject("Shell.Application")
Set myPath = Shell.BrowseForFolder(0, "フォルダを選択して下さい", &H11)
'If Not myPath Is Nothing Then MsgBox myPath.Items.Item.Path
Set myFolder = myFSO.GetFolder(myPath.Items.Item.Path)
Set myFiles = myFolder.Files
Cells(1, 1).Value = "No"
Cells(1, 2).Value = "ファイル名"
Cells(1, 3).Value = "作成日"
Cells(1, 4).Value = "サイズ"
Cells(1, 5).Value = "パス"
For Each myFile In myFiles
i = i + 1
Cells(i + 1, 1).Value = i - 1
Cells(i + 1, 2).Value = myFile.Name
Cells(i + 1, 3).Value = myFile.Datecreated
Cells(i + 1, 4).Value = myFile.Size
Cells(i + 1, 5).Value = myFile.Path
Next
End Sub
|
|