Excel VBA質問箱 IV

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

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


19785 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   初心者なので本を読んだり他の方の作ったものを参考にしながら自分のイメージにあうファイル一覧の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
0 hits

【62373】ファイル一覧を作りましたが ざき 09/7/15(水) 11:51 質問
【62374】Re:ファイル一覧を作りましたが つん 09/7/15(水) 13:01 発言
【62386】Re:ファイル一覧を作りましたが ざき 09/7/16(木) 8:19 お礼
【62380】Re:ファイル一覧を作りましたが Hirofumi 09/7/15(水) 16:28 回答
【62381】Re:ファイル一覧を作りましたが Hirofumi 09/7/15(水) 16:33 回答
【62387】Re:ファイル一覧を作りましたが ざき 09/7/16(木) 8:24 お礼
【62388】Re:ファイル一覧を作りましたが Hirofumi 09/7/16(木) 10:39 回答
【62457】Re:ファイル一覧を作りましたが ざき 09/7/22(水) 20:35 お礼

19785 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free