Excel VBA質問箱 IV

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

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


26709 / 76738 ←次へ | 前へ→

【55359】サブフォルダ内の情報取得
質問  あっくん  - 08/4/30(水) 15:26 -

引用なし
パスワード
   ファイルの情報を取得しようと、下記のようなコードを組みました。
しかし、このままですとサブフォルダ内のファイルまでは探してくれません。

どのようにしたらサブフォルダ内も探してくれるようになるのでしょうか?

Function FGet(wbp As Variant) As String
  Dim Shl As Object, fol As Object
  Set Shl = CreateObject("shell.application")
  Set fol = Shl.BrowseForFolder(0, "フォルダを選択してください", 0, wbp)
  
  If fol Is Nothing Then
  FGet = ""
  Else
  FGet = fol.items.Item.Path
  End If
  Set fol = Nothing: Set Shl = Nothing
End Function

Sub ファイル情報取得()
Dim myfso As New filesystemobject
Dim myfolder As folder
Dim myfiles As Files
Dim myfile As File
Dim i As Integer

Set myfolder = myfso.getfolder(FGet(Application.ThisWorkbook.Path))
Set myfiles = myfolder.Files
For Each myfile In myfiles
 i = i + 1
 Cells(i, 1).Value = myfile.Name
 Cells(i, 2).Value = myfile.datecreated
 Cells(i, 3).Value = myfile.Size
Next

End Sub
1 hits

【55359】サブフォルダ内の情報取得 あっくん 08/4/30(水) 15:26 質問
【55360】Re:サブフォルダ内の情報取得 neptune 08/4/30(水) 16:40 回答

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