FileオブジェクトとFolderオブジェクトのDateCreatedプロパティについてです。
DateCreatedプロパティ
概要
指定したファイルやフォルダーの作成日時を返します。読み取り専用です。
構文
ファイルの場合：FileObject.DateCreated
フォルダの場合：FolderObject.DateCreated
VBAサンプル
フォルダーの作成日時の取得
実行するとsampleフォルダーの作成日時を取得できます。
まずはFileSystemObjectをオブジェクト変数fsoにセットします。次にFileSystemObjectのGetFolderメソッドはFolderオブジェクトを返すのでフォルダーパスを指定してオブジェクト変数のfolにセットします。最後にFolderオブジェクト（fol）のDateCreatedプロパティを使用すると作成日時を取得できます。
1 2 3 4 5 6 7 8 9 10 11 12 | Sub testフォルダー() 'FileSystemObjectセット Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'FolderオブジェクトをFileSystemObjectのGetFolderで返して、folにセット Dim fol As Folder Set fol = fso.GetFolder("D:\sample") 'FolderオブジェクトのDateCreatedで取得 Debug.Print fol.DateCreated End Sub |
もしくは下記のような短縮した書き方でも取得できます。
1 2 3 4 5 6 7 8 | Sub testフォルダー2() 'FileSystemObjectをセット Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'FolderオブジェクトのDateCreatedで取得 Debug.Print fso.GetFolder("D:\sample").DateCreated End Sub |
ファイルの作成日時の取得
実行するとtest.xlsxの作成日時が取得できます。
まずはFileSystemObjectをオブジェクト変数fsoにセットします。次にFileSystemObjectのGetFileメソッドはFileオブジェクトを返すのでファイルパスを指定してオブジェクト変数のfにセットします。最後にFileオブジェクト（f）のDateCreatedプロパティを使用すると作成日時を取得できます。
1 2 3 4 5 6 7 8 9 10 11 12 | Sub testファイル() 'FileSystemObjectセット Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'FileオブジェクトをFileSystemObjectのGetFileで返して、オブジェクト変数のfにセット Dim f As File Set f = fso.GetFile("D:\sample\test.xlsx") 'FileオブジェクトのDateCreatedで取得 Debug.Print f.DateCreated End Sub |
もしくは下記のような短縮した書き方でも取得できます。
1 2 3 4 5 6 7 8 | Sub testファイル2() 'FileSystemObjectをセット Dim fso As Object Set fso = CreateObject("Scripting.FileSystemObject") 'FileオブジェクトのDateCreatedで取得 Debug.Print fso.GetFile("D:\sample\test.xlsx").DateCreated End Sub |
