做个定时器，程序启动的时候获取一次文件列表，记录下来，下次扫描的时候和本地保存的列表进行比对，有新的就更新下来。
㈡ Win7如何监控文件夹及共享文件夹改动
Win7不具备这么强大的监控功能，我们需要一个软件来实现，“Directory Monitor”这款软件，是中文版专的，可以帮助我们属监控文件夹，使用方法:
1、下载：Directory Monitor中文版；
2、进行安装，步骤很简单，下一步一下步即可。
2、打开软件，然后点击”目录“再选择”新增“；
3、在新增目录中，添一个你要监视的文件夹，如C:\xitonghe.com\ 并勾选你要监视的事件，确定保存；
4、设置好之后，右下角会弹出气泡，C:\xitonghe.com 正在被监视
5、接下来我们对C:\xitonghe.com文件夹进行模拟操作试试看，小编新建了一个文档，随之右下角弹出气泡提示，而软件主界面也会有“新增”记录；
6、接下来怎么使用，大家应该有有数了吧，记住设置该软件开机启动哦，否则不会自动监视
㈢ 用VB怎么监控文件夹是否有新的文件生成
我自创的方法。考虑到实时检测是否有新文件，应该用一个Timer。
画两个FileListBox控件，控件名分别为File1、File2；画一个TextBox，名为Text1；画一个Timer，名为Timer1。要求将目标文件夹新生成的Txt文件内容显示到Text1中。
Private Sub Form_Load()
File1.Path = "在引号里打上要监测的路径。如果路径不是某个盘的根目录则不要在最后一个文件夹名的后面打上“\”"
File2.Path = File1.Path
File1.Pattern = "*.txt"
File2.Pattern = "*.txt"
File1.Visible = False
File2.Visible = False
Timer1.Interval = 在等号后面打上一个整数用来确定扫描新文件的频率，单位是毫秒，最低值是1
End Sub
Private Sub Timer1_Timer()
File2.Refresh
If File2.ListCount > File1.ListCount Then
If File1.ListCount = 0 Then
File2.ListIndex = 0
Else
i = 0
File1.ListIndex = i
File2.ListIndex = i
Do While File2.FileName = File1.FileName And i <= File1.ListCount - 1
File1.ListIndex = i
File2.ListIndex = i
i = i + 1
Loop
If i = File1.ListCount - 1 Then
File2.ListIndex = i - 1
Else
File2.ListIndex = i
End If
End If
url = File2.Path
If Right(url, 1) <> "\" Then
url = url & "\"
End If
url = url & File2.FileName
Open url For Input As #1
Text1.Text = StrConv(InputB(LOF(1), #1), vbUnicode)
Close #1
File1.Refresh
End If
If File2.ListCount < File1.ListCount Then
File1.Refresh
End If
End Sub
绝对好使，我在VB上试过了。