エクセルVBAの質問です。あるフォルダ内の一番新しいタイムスタンプのファイルのみ選択するのはどうしたらいいのでしょうか? できるだけシンプルで簡単な方法お願いします。

回答の条件
  • URL必須
  • 1人2回まで
  • 登録:2009/08/24 23:14:15
  • 終了:2009/08/25 00:29:35

ベストアンサー

id:SALINGER No.1

SALINGER回答回数3454ベストアンサー獲得回数9692009/08/25 00:06:19

ポイント60pt

Dir()でファイルを取得して、FileDateTimeで比較。

1行目はファイルのあるフォルダです。


Sub test()
    rootFolder = "C:\Documents and Settings\hogehoge\デスクトップ\test"
    Filename = Dir(rootFolder & "\*.*", vbNormal)
    Filename2 = Dir()
    Do While Filename <> ""
        If FileDateTime(rootFolder & "\" & Filename2) < FileDateTime(rootFolder & "\" & Filename) Then
            Filename2 = Filename
        End If
        Filename = Dir()
    Loop
    MsgBox Filename2
End Sub

http://q.hatena.ne.jp/

id:kaiketsu

ありがとうございます。

2009/08/25 00:25:23

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません