做個定時器，程序啟動的時候獲取一次文件列表，記錄下來，下次掃描的時候和本地保存的列表進行比對，有新的就更新下來。
㈡ 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上試過了。