Dim lastCheckTime As DateTime '记录上一次检查的时间
Dim lastFilesCount As Integer = 0 '记录上一次检查时的文件总数
'下面这些代码定时执行
Dim files() As String = System.IO.Directory.GetFiles("")
If files.Length > lastFilesCount Then
For i As Integer = 0 To files.Length
Dim filePath As String = files(i)
Dim file As System.IO.FileInfo = New System.IO.FileInfo(filePath)
If (file.CreationTime > lastCheckTime) Then
'这是个新文件
End If
Next
End If
lastCheckTime = Now '检查完毕更新时间戳
lastFilesCount = files.Length '检查完毕更新文件总数