ファイルの最終更新日時他の取得
 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
ファイル属性・ファイルの作成日時・最終アクセス日時・最終更新日時の取得　　(256)
まず、参照設定をしておいて下さい。
そして Form に Command1を配列で４個とLabel1を貼り付けて Sample.txt を準備しておいて下
さい。
　 Option Explicit　　 'SampleNo=256　WindowsXP VB6.0(SP5) 2003.02.22

Private Sub Command1_Click(Index As Integer)
　　Dim Fso　　 As New FileSystemObject
　　Dim FsoFile As File

　　Select Case Index
　　　　Case 0
　　　　　　Set FsoFile = Fso.GetFile(App.Path & "\Sample.txt")
　　　　　　Label1.Caption = "ファイル属性は " & FsoFile.Attributes & " です"
　　　　Case 1
　　　　　　Set FsoFile = Fso.GetFile(App.Path & "\Sample.txt")
　　　　　　FsoFile.Attributes = Normal
　　　　　　Label1.Caption = "ファイル属性を " & FsoFile.Attributes & _
　　　　　　　　　　　　　　　　　　　　　　 "　に変更しました"
　　　　　　FsoFile.Attributes = Archive　　'Archive に再設定
　　　　Case 2
　　　　　　Set FsoFile = Fso.GetFile(App.Path & "\Sample.txt")
　　　　　　Label1.Caption = "作成日時：" & FsoFile.DateCreated
　　　　Case 3
　　　　　　Set FsoFile = Fso.GetFile(App.Path & "\Sample.txt")
　　　　　　Label1.Caption = "最終アクセス日時：" & FsoFile.DateLastAccessed
　　　　　　'このプロパティの動作は、使用しているオペレーティングシステムに
　　　　　　'依存します。オペレーティング システムがこの時刻情報の提供を
　　　　　　'サポートしていない場合は、何も取得されません。
　　　　Case 4
　　　　　　Set FsoFile = Fso.GetFile(App.Path & "\Sample.txt")
　　　　　　Label1.Caption = "最終更新日時：" & FsoFile.DateLastModified
　　End Select

　　Set FsoFile = Nothing

End Sub

　
ファイルの属性関係やファイルの作成日時はVBの機能でも取得できますが、最終アクセス日時・
最終更新日時はVBの機能では取得出来ないので便利かと思います。
　　　





2003/02/27