ファイルの更新日時を取得する手法を教えて下さい。
Excel2003のマクロにて、ファイルの更新日時を取得しようとして、次の構文を作りましたが、×印のところで実行時エラー438が発生します。
CreateObjectの作り方が間違っているのではないかと思うのですが、具体的な方法が判らず、泣いています。
何方か、ファイルの更新日時を取得する手法を教えて下さい。
宜しくお願いします。
Sub ファイルの更新日時取得()
Dim A, B
Dim AA
Dim SSS()
Dim AAA, BBB, CCC, DDD
Set AAA = CreateObject("Scripting.FileSystemObject")
Set BBB = AAA.GetFolder("対象フォルダ名")
Set CCC = BBB.Files
A = CCC.Count
If A > 0 Then
ReDim SSS(A, 5)
B = 0
For Each DDD In CCC
B = B + 1
SSS(B, 1) = B
SSS(B, 2) = DDD.Path
SSS(B, 3) = DDD.Name
SSS(B, 4) = DDD.Size
×SSS(B, 5) = DDD.LastRefreshed
Next
End If
End Sub
