Excel-VBA フォルダの日時を取得・設定

質問

目的は、Excel-VBAでフォルダのタイムスタンプを「取得・設定」したいのですが、
非力にてクマロの書き方が分かりません。
何方かご教授よろしくお願いいたします。
下記はサンプルコードを探していて、これだと目に留まったのですが、
Excel-VBAマクロで実行するコードに書き直す事ができませんでした。
'---------------------------------------------
'VB.NET フォルダのタイムスタンプ取得・設定(6個)-(SNo.032)
'http://hanatyan.sakura.ne.jp/dotnet/index.html
'---------------------------------------------
'Sample1.フォルダの作成日時を取得する
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim dt As DateTime
dt = System.IO.Directory.GetCreationTime("c:test\")
Debug.WriteLine(dt)
End Sub
'---------------------------------------------
'Sample4.フォルダの作成日時を設定する
Private Sub Button4_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button4.Click
'Directory.SetCreationTime メソッド
System.IO.Directory.SetCreationTime("c:test\", DateTime.Now)
End Sub
'---------------------------------------------
以上

回答No.1

DOUGLAS_ · ベストアンサー

ちょっと古い記事ですが、こちらはいかがでしょうか？

●タイムスタンプの更新の方法２
http://okwave.jp/qa/q1805400.html

　上記の ＃２ に

-- これより引用 ----------------------------------------------
タイムスタンプは VBA の FileDateTime 関数でも取得できますが、FileSystemObject でも取得できます。

タイムスタンプの設定については、残念ながら VBA と VB6までには関数が用意されてません。これを実現するためには Win32Api を使うことになりますが、結構面倒くさいですね。
-- ここまで引用 ----------------------------------------------

と書かれ、具体的な コード もお示しになっていらっしゃいます。

＃なお、難解な コード ですので、私は検証はしておりませんが、回答者お二人は、この手の質問でよくお見かけする達人さんですので、内容は確かかと存じます。

お礼

早々の情報提供有難うございます。
課題1のタイムスタンプ取得は意外と簡単に評価が完了しました。
課題2についてはご紹介いただいた次の所からコードまる写しで評価中です。
タイムスタンプの更新の方法２
http://okwave.jp/qa/q1805400.html
まる写しで動作する事には成功しましたが、予想に反する処理結果しか得られませんでした。
しかし、かなり目的に合った事例なので難解なコードですが何とか解読したいと検証中です。
完了は何日も先になりそう…
お礼が先送りになるのは失礼と思い現状説明にて本件は完了とします。
どうも有難うございました。
以上

回答No.2

imogasi

エクセルＶＢＡで出来ないときは、特にファイル・フォルダに絡むことはＶＢＳｃriｐｔの本（やＷＥＢ記事）を調べるのが常道。
ＶＢＳｃriｐｔの本には
ファイルとフォルダで
ファイルやフォルダの作成日を調べたい
ファイルやフォルダの最終更新日を調べたい
ファイルやフォルダの最終アクセス日を調べたい
が載っているよ。例えば技術評論社「ＶＢＳｃript」
ＷＥＢなら
http://www.moug.net/tech/acvba/0090019.htm　など
「フォルダの日時を取得・設定 VBA」で
Ｇｏｏｇｌｅで照会すれば直ぐ見つかるよ。
ーーー
エクセルＶＢＡでもＶＢｓcriｐｔの知識は必須とおもう。ＶＢＡ独自のオブジェクトだけでは不自由するとおもう。

お礼

紹介いただいた方法と同様の内容で既に評価が済んでいます。
とは言え情報提供、有難うございました。
今後とも宜しくお願いいたします。