●概要●
構文 Object.DateCreated 取得のみ
Object.DateLastModified 取得のみ
設定項目 内容
Object FolderオブジェクトまたはFileオブジェクトを指定［省略不可］
FolderオブジェクトのDateCreatedプロパティはフォルダの作成日時を取得します。DateLastModifiedプロパティはフォルダの最終更新日時を取得します。
Folderオブジェクトは、FileSystemObjectオブジェクトのGetFolderメソッドにフォルダ名を指定して取得します。
サンプルは、Dドライブの「Access」フォルダの作成日時、最終アクセス日時、最終更新日時を、［イミディエイト］ウィンドウに表示しています。
●サンプル●
'フォルダの作成（最終更新）日時を取得する
' [ツール]→[参照設定]で「Microsoft Scripting Runtime」をチェック
Sub Sample()
Dim myFileSystem As New Scripting.FileSystemObject
Dim myFolder As Scripting.Folder
Set myFolder = myFileSystem.GetFolder("D:\Access")
With myFolder
Debug.Print "作成日時 ：" & .DateCreated
Debug.Print "最終アクセス日時：" & .DateLastAccessed
Debug.Print "最終更新日時 ：" & .DateLastModified
End With
End Sub
●補足1●
フォルダのサイズと種類は、同様にFolderオブジェクトのSizeプロパティとTypeプロパティで取得します。
●補足2●
FileSystemObjectオブジェクトは利用する前に参照設定を行う必要があります。参照設定は、［ツール］メニューから［参照設定］コマンドを選択して、［参照設定］ダイアログボックスを表示します。ダイアログボックスが表示されたら、一覧から「Microsoft Scripting Runtime」をチェックして［OK］ボタンをクリックします。
