Question

vb.net，如何判断一个文件的属性变化，例如在程序运行时监视d:\test.doc，如果test.doc的修改时间变化就

vb.net，如何判断一个文件的属性变化，例如在程序运行时监视d:\test.doc，如果test.doc的修改时间变化就msgbox"文件被修改"。
不要只给个思路，要具体代码，谢谢

Answer 1

Dim D1 As String
Dim coost As String

Private Sub Form_Load()
coost = "d:\test.doc"
D1 = Format(FileDateTime(coost), "yyyy-mm-dd hh:mm:ss")
Me.Caption = D1
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Dim S1 As String
S1 = Format(FileDateTime(coost), "yyyy-mm-dd hh:mm:ss") '文件修改时间
If S1 <> D1 Then
MsgBox "文件被修改"
D1 = Format(FileDateTime(coost), "yyyy-mm-dd hh:mm:ss")
Me.Caption = D1
End If

End Sub