人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

●質問者: kaiketsu
●カテゴリ:コンピュータ 科学・統計資料
✍キーワード:エクセル シンプル タイムスタンプ ファイル フォルダ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●60ポイント ベストアンサー

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/

◎質問者からの返答

ありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ