在VB中如何监控硬盘文件的修改日期？？

Question

那只能用定时器，和FSO配合了
FSO查询文件日起，定时器监控Dim OldTime as date
Oldtime=你的时间
Private Sub Timer1_Timer()
Dim FileManager As New FileSystemObject
Dim File
Set File = FileManager.GetFile("E:\软件共享\单机部分功能.doc")
'File.DateCreated '这个就是文件的创建、改动时间了
If File.DateCreated<> OldTime Then 
'注意是间格式，如果不行的话，转成字符比较比较好
'你想怎么办就怎么办吧
End If
End Sub

Answer 1

在TIMER的事件中不断检查 FILEDATETIME(FILENAME) 有没有变化.

Answer 2

Dim FileManager As New FileSystemObject不行呢，没有FileSystemObject对象，是不是调用了什么API？？
还有就是，VB中如何获得当前系统时间呢？？

Answer 3

当前时间
foramat(time,"hh:mm:ss")