vb监听文件夹变化

首先先引基野笑用Microsoft Scripting RunTime

'放置3个timer控件，依次命名为timer1，timer2，timer_time

'将下面代码放到代码框中。

Dim size_a As Long, size_b As Long, time_5 As Integer

Dim fso1 As New FileSystemObject

Dim folder1 As Folder

Private Sub Form_Load()

Set folder1 = fso1.GetFolder("d:\samples") '文件脊备夹的位置，根据自己的修改

Print folder1.Size, time_5

Timer1.Interval = 1

Timer2.Interval = 2

Timer_time.Interval = 9999

End Sub

Private Sub Timer_time_Timer()

time_5 = time_5 + 10

If time_5 >= 300 Then

Shell "d:\play.exe" '文件的位置，根据自己的修改

Shell "d:\sendmail.exe" '文件的位置，根据自己的修改

End If

End Sub

Private Sub Timer1_Timer()

Set folder1 = fso1.GetFolder("d:\samples") '文件夹的位置，根据自己的修改

size_a = folder1.Size

If size_b <>size_a Then time_5 = 0

End Sub

Private Sub Timer2_Timer()

Set folder1 = fso1.GetFolder("d:\samples") '文件夹的位置，根据搏含自己的修改

size_b = folder1.Size

End Sub

数据库能用吗？

如果能用的话，可能这个文件就隐藏了。

如果不能袭迹宽用的话，那么你新建一个监听就可以了，然后再次查找listener.ora。

我用过好多，监听文件确实拍亮是在这州迟个目录下。

如果不是，那小的学习了。。。

---