Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19788 / 76735

←次へ　｜　前へ→


	【62373】ファイル一覧を作りましたが

ざき - 09/7/15(水) 11:51 -


	引用なし

	パスワード

初心者なので本を読んだり他の方の作ったものを参考にしながら自分のイメージにあうファイル一覧のＶＢＡが出来ましたが、ＦＳＯで指定したフォルダからサブフォルダの中身まで全てエクセルに書き出せる記述がどうしても分かりません。是非教えてくださいお願いします。

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

0 hits

▼

【62373】ファイル一覧を作りましたが ざき 09/7/15(水) 11:51

≪