VBAのFileSearchでFoundFiles(i)の作成日時を取得したい

質問

タイトルどおりですが、Fileオブジェクトには
DateCreatedプロパティーがあるようですが、
どこでこれを使用していいのかわかりません。

したのはHELPのサンプルですが、どうしたらいい
ものでしょうか？

With Application.FileSearch
If .Execute() > 0 Then
MsgBox .FoundFiles.Count & _" 個のファイルが見つかりました。"
For i = 1 To .FoundFiles.Count
Debug.Print .FoundFiles(i)
Next i
Else
MsgBox "検索条件を満たすファイルはありません。"
End If
End With

回答No.1

papayuka · ベストアンサー

DateCreated プロパティのヘルプに載っているサンプルを改良して

Function ShowFileInfo(filespec) As String
　　Dim fs, f, s
　　Set fs = CreateObject("Scripting.FileSystemObject")
　　Set f = fs.GetFile(filespec)
　　s = "Created: " & f.DateCreated
　　ShowFileInfo = s
End Function

のようにして、先の例で

Debug.Print ShowFileInfo(.FoundFiles(i))

としたらどうでしょうか？

お礼

DateCreated で検索するのを忘れていました。

ちょっと、やってみます。

ありがとうございました。

補足

解決しました。ありがとうございました。