ADOでAccessファイルに接続して、ファイルの

ADOでAccessファイルに接続して、ファイルの更新日時を取得するには？

access２００３です、

Private Sub 更新日時を取得()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim MyFileName As String

MyFileName = "D:\My Documents\システム.mdb"

cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source= " & MyFileName

'ここで更新日時を取得

rs.Close: Set rs = Nothing
cn.Close: Set cn = Nothing

End Sub

この状態で、更新日時を取得するにはどうすればいいでしょう？
ご教授よろしくお願いします。

No.1 ベストアンサー 回答者： 30246kiku 回答日時： 2012/09/28 17:42

> この状態で、更新日時を取得するにはどうすればいいでしょう？

これは、どう解釈すればよいのでしょうか。
Connection の中には、それらしい情報はないようです。


１）アクセスファイル自体の更新日付（エクスプローラで見た時の）なら、以下の方法になると思います。

http://www.officetanaka.net/excel/vba/filesystem …


２）接続した先の各テーブルの更新日付なら以下の様な雰囲気で
Microsoft ADO Ext ・・・・ の参照設定が必要です。

　　Dim cn As New ADODB.Connection
　　Dim catx As New ADOX.Catalog
　　Dim v As Variant
　　Const sPath As String = "D:\My Documents\システム.mdb"

　　cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sPath & ";"
　　Set catx.ActiveConnection = cn
　　Debug.Print ">> catx Tables <<"
　　For Each v In catx.Tables
　　　　Debug.Print v.Name, v.DateCreated, v.DateModified
　　Next
　　cn.Close


３）テーブル内のレコードの更新日付なら、
それなりのフィールドがあり、その都度設定されていないと得ることが出来ないと思います。
データを追加/更新したからといって、テーブルの更新日付は変わらないようです。

この回答へのお礼

ADOではファイルの更新日時は取得できないようですね。
FSOかＡＤＯＸを使うとできるのですか。

2）の方法は、ファイルの更新日時ではなくテーブルの更新日時が取得できるのですか。
今は使いませんが、いつか使える時が来そうです。メモしました。ありがとうございました。

お礼日時：2012/10/02 21:21