玄関へお回り下さい。
フォルダー（ディレクトリ）のタイムスタンプを取得及び設定する (6個)         (SNo.032)

１．フォルダー（ディレクトリ）の作成日時を取得する
２．フォルダー（ディレクトリ）の更新日時を取得する
３．フォルダー（ディレクトリ）のアクセス日時を取得する
４．フォルダー（ディレクトリ）の作成日時を設定する
５．フォルダー（ディレクトリ）の更新日時を設定する
６．フォルダー（ディレクトリ）のアクセス日時を設定する
使用コントロール Button1  〜　Button6
その他条件 WindowsXP(Vista)　Visual Basic 2005(VB2008)
　　
１．フォルダー（ディレクトリ）の作成日時を取得する

Private Sub Button1_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button1.Click
'ディレクトリの作成日時を取得する
    'Directory.GetCreationTime メソッド   
    'ディレクトリの作成日時を取得します。
    Dim dt As DateTime
    dt = System.IO.Directory.GetCreationTime("c:test\")     
    Debug.WriteLine(dt)　　'結果 2005/09/04 15:28:32
End Sub
２．フォルダー（ディレクトリ）の更新日時を取得する

Private Sub Button2_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button2.Click
'ディレクトリの更新日時を取得する
    'Directory.GetLastWriteTime メソッド 
    '指定したディレクトリに最後に書き込んだ日付と時刻を返します。
    Dim dt As DateTime
    dt = System.IO.Directory.GetLastWriteTime("c:test\")   
    Debug.WriteLine(dt)　　'結果 2005/09/04 15:28:34
End Sub
３．フォルダー（ディレクトリ）のアクセス日時を取得する

Private Sub Button3_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button3.Click
'ディレクトリのアクセス日時を取得する
    'Directory.GetLastAccessTime メソッド
    '指定したディレクトリに最後にアクセスした日付と時刻を返します。
    Dim dt As DateTime
    dt = System.IO.Directory.GetLastAccessTime("c:test\")   
    Debug.WriteLine(dt)　　'結果 2005/09/14 0:00:00
End Sub
４．フォルダー（ディレクトリ）の作成日時を設定する

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)  '結果 2005/09/14 19:00:59
End Sub
５．フォルダー（ディレクトリ）の更新日時を設定する

Private Sub Button5_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button5.Click
'ディレクトリの更新日時を設定する
    'Directory.SetLastWriteTime メソッド
    'ディレクトリに最後に書き込んだ日付と時刻を設定します。
    System.IO.Directory.SetLastWriteTime("c:test\", DateTime.Now) '結果 2005/09/14 19:01:00
End Sub
６．フォルダー（ディレクトリ）のアクセス日時を設定する

Private Sub Button6_Click(ByVal sender As System.Object, _
                          ByVal e As System.EventArgs) Handles Button6.Click
'ディレクトリのアクセス日時を設定する
    'Directory.SetLastAccessTime メソッド
    '指定したディレクトリに最後にアクセスした日付と時刻を設定します。
    System.IO.Directory.SetLastAccessTime("c:test\", DateTime.Now) '結果 2005/09/14 19:01:01
End Sub





2004/04/26
2005/09/16


VBレスキュー(花ちゃん)
VB.NET2003　　VB2005