| ファイルのタイムスタンプを取得及び設定する (6個) (SNo.021) １．ファイルの作成日時を取得する ２．ファイルの更新日時を取得する ３．ファイルのアクセス日時を取得する ４．ファイルの作成日時を設定する ５．ファイルの更新日時を設定する ６．ファイルのアクセス日時を設定する |
|
| 使用コントロール | Button1 〜 Button6 |
| その他条件 | WindowsXP(Vista) Visual Basic 2005(VB2008) Imports System.IO をモジュールの先頭に記述しておいて下さい。 テストするファイルを準備しておいて下さい。 |
|
１．ファイルの作成日時を取得する
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click ''ファイルの作成日時を取得する 'File.GetCreationTime メソッド '指定したファイルまたはディレクトリの作成日時を返します Dim dt As DateTime dt = File.GetCreationTime("..\..\test.txt") '結果 2005/09/05 13:49:26 Debug.WriteLine(dt) End Sub |
|
| ２．ファイルの更新日時を取得する Private Sub Button2_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button2.Click ''ファイルの更新日時を取得する 'File.GetLastWriteTime メソッド '指定したファイルまたはディレクトリに最後に書き込んだ日付と時刻を返します。 Dim dt As DateTime dt = File.GetLastWriteTime("..\..\test.txt") '結果 2004/06/11 20:58:10 Debug.WriteLine(dt) End Sub |
|
| ３．ファイルのアクセス日時を取得する Private Sub Button3_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button3.Click ''ファイルのアクセス日時を取得する 'File.GetLastAccessTime メソッド '指定したファイルまたはディレクトリに最後にアクセスした日付と時刻を返します。 Dim dt As DateTime dt = File.GetLastAccessTime("..\..\test.txt") '結果 2005/09/07 15:49:52 Debug.WriteLine(dt) End Sub |
|
| ４．ファイルの作成日時を設定する Private Sub Button4_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button4.Click ''ファイルの作成日時を設定する 'File.SetCreationTime メソッド 'ファイルが作成された日付と時刻を設定します。 File.SetCreationTime("..\..\test.txt", DateTime.Now) '結果 2005/09/08 10:29:52 End Sub |
|
| ５．ファイルの更新日時を設定する Private Sub Button5_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button5.Click ''ファイルの更新日時を設定する 'File.SetLastWriteTime メソッド '指定したファイルに最後に書き込んだ日付と時刻を設定します。 File.SetLastWriteTime("..\..\test.txt", DateTime.Now) '結果 2005/09/08 10:29:53 End Sub |
|
| ６．ファイルのアクセス日時を設定する Private Sub Button6_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button6.Click ''ファイルのアクセス日時を設定する 'File.SetLastAccessTime メソッド '指定したファイルに最後にアクセスした日付と時刻を設定します。 File.SetLastAccessTime("..\..\test.txt", DateTime.Now) '結果 2005/09/08 10:29:54 End Sub |
|