【VB.NET 語言】上報 練習 _ 監控資料夾

接續之前的程式的第三集！(前情提要)
居裡貓今天要來講講第三集，小程式的第三集啊!
先前分享了選擇路徑跟寫 .xml 檔案，
那我們寫好了檔案到 Local Folder 裡面，要怎麼讓他去到其他資料夾呢？
總不是在寫幾個 Button 去寫檔案吧!!!
又要在什麼時候，讓這個寫好的檔案去到其他資料夾呢!!?

好的~
那麼講到什麼時候去，就表示我們得知道他什麼時候寫了一個檔案對吧!
那要知道什麼時候寫檔案，那我們就要像眼線一樣在那邊監控他嘛!
這樣我們才會知道它在什麼時候寫了檔案!
這就是今天的主題監控資料夾~~的原因!

這次其實也沒什麼圖片可以看，那就直接上程式碼吧!!!

----------------------------------------------------------------------------------------------------------------

1. '這裡很直接的就是要在程式開啟的那個時間開始就要監控了  
2. '因為檔案有可能就在開啟之後馬上寫檔案麻~~  
3.   
4.     Private Sub UploadReport_Load(sender As Object, e As EventArgs) Handles MyBase.Load  
5.         'At program started to run monitor folder programming  
6.         Watcher.Main(TxB_Local.Text)  
7.   
8.         back.WorkerSupportsCancellation = True  
9.         back.WorkerReportsProgress = True  
10.   
11.         AddHandler back.DoWork, AddressOf back_DoWork  
12.   
13.     End Sub  
14.   
15. '---我是分割線，上面是當程式Load的時候做的事，下面才是監控的主要 Class  
16.   
17. 'About Monitor Foldaer  
18. Public Class Watcher  
19.   
20.     Public Shared Sub Main(path As String)  
21.         '"path" was monitored folder file path  
22.         Run(path)  
23.   
24.     End Sub  
25.     Public Shared watcher As New FileSystemWatcher()  
26.     Private Shared Sub Run(p As String)  
27.         'Create new FileSystemWatcher and set path  
28.         watcher.Path = p  
29.         'Only watch XML files  
30.         watcher.Filter = "*.xml"  
31.   
32.         'AddHandler watcher.Changed, AddressOf OnChanged  
33.         AddHandler watcher.Created, AddressOf OnCreated  
34.         'AddHandler watcher.Deleted, AddressOf OnDeleted  
35.         'AddHandler watcher.Renamed, AddressOf OnRenamed  
36.   
37.         'Begin watching  
38.         watcher.EnableRaisingEvents = True  
39.   
40.     End Sub  
41.   
42. '這邊下面的內容包含了一些其他功能的地方請暫時忽略他們吧~______  
43.   
44.     Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs)  
45.         'When file was created  
46.         Console.WriteLine("File : " & e.FullPath & " _ " & e.ChangeType)  
47.         'When into here and then get now file name  
48.         Copy_Delete_File.GetFileName(e.Name)  
49.         System.Threading.Thread.Sleep(500)  
50.         'Wait few second then do copyfile work  
51.         Copy_Delete_File.copyfile()  
52.     End Sub  
53.     Private Shared Sub OnChanged(source As Object, e As FileSystemEventArgs)  
54.         'When file was changed  
55.     End Sub  
56.     Private Shared Sub OnDeleted(source As Object, e As FileSystemEventArgs)  
57.         'When file was deleted  
58.     End Sub  
59.     Private Shared Sub OnRenamed(source As Object, e As RenamedEventArgs)  
60.         'When file was renmaed  
61.         Console.WriteLine("File : {0} Renamed to {1}", e.OldFullPath, e.FullPath)  
62.         Copy_Delete_File.GetFileName(e.Name)  
63.         System.Threading.Thread.Sleep(100)  
64.         Copy_Delete_File.copyfile()  
65.     End Sub  
66. End Class

---------------------------------------------------------------------------------------------------------------------

今天分享的就是一個監控資料夾的程式段落，
那居裡貓在監控程式段落中寫了一些其他功能，
就是希望在監控的時候發生事件就去執行別的功能這樣~~~~

希望今天的分享大家還覺得喜歡!
也感謝各位先進的教學文~


底下就是這個連續劇程式分享的分段分享內容

1. 上報 練習 _ 選擇資料夾
2. 上報 練習 _ 寫一個 .XML 資料
3. 上報 練習 _ 監控資料夾
4. 上報 練習 _ 複製檔案
5. 上報 練習 _ FTP Server 檔案上傳
6. 上報 練習 _ 上傳錯誤紀錄
7. 上報 練習 _ 使用 BackgroundWorker 再次上傳
8. 上報 練習 _ Log 紀錄
9. 上報 練習 _ 完整程式碼分享