ExcelVBAで、特定のファイルの更新日時などを取得したい

質問

ExcelVBAを使って、指定したファイル(D:\TEST.xlsなど)の更新日時を取得したいのですが、どのようにしたら良いのでしょうか。
　よろしくお願いします。

回答No.3

imogasi · ベストアンサー

フォルダー内の最終更新日を出す。
Private Sub test03()
Dim fn As String
Dim hn As String
p01:
fn = InputBox("フォルダ名=", "フォルダ指定", "c:\My Documents\")
If fn = "end" Then Exit Sub
' fn = "c:\My Documents\"
i = 2
sdirname = Dir(fn)
Do While sdirname <> ""
'If Right(sdirname, 4) = ".csv" Then
Cells(i, 1) = sdirname
hn = fn & sdirname
Cells(i, 2) = hn
Cells(i, 3) = FileDateTime(hn)
i = i + 1
'End If
'------
sdirname = Dir
Loop
GoTo p01
End Sub
エクセルシートに出します。
フォルダ名を指定する。終りは「end」を応答。
拡張子を限定するなら、上記コード内のIf　End　Ifのアポストフィを削除してください。

お礼

遅くなり申し訳ありません。
具体的に書いていただき、参考になります。
ありがとうございました。

回答No.2

papayuka

こちらが参考になります。
http://www2.moug.net/app/bbs/message.php?cat=exvba&id=20040415-000045

お礼

遅くなり申し訳ありません。
ありがとうございました。

回答No.1

tinu 2000（@tinu2000）

FileDateTime("D:\TEST.xls")
で、指定したファイルの作成日時または最後に変更した日時を示す日付と時刻 (VarType 7) を返します。

ヘルプでFileDateTimeを見て参考にしてください。

お礼

遅くなり申し訳ありません。
うまくできました。
ありがとうございました。