[發問] 監控目錄異動log & VB郵件程式

webbliu

Dear 大大們，

小弟最近在寫一功能的VB。
其功能是能夠監控1資料夾和子目錄的檔案異動(新增、刪除、修改)的時間log記錄。
並且每有異動，就用Mail發出通知。
Mail 含log附件檔案，或將log的內容貼上郵件內文。

但小弟才剛學不久，對於迴圈if 這些觀念很部會...。
以下兩個程式如果單獨執行都沒有問題。
1個是mail的class，1個是監控目錄的class。
想請教大大如果兩個程式的功能結合一起。
應該要怎麼修改呢?

謝謝各位大大~

1. Public Class Mail001
   
2. 
   
3. 
   
4.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   
5.         Dim To_Address As String = "webb@google.com"
   
6. 
   
7.         ' 設定SMTPserver
   
8.         Dim SMTP_Server As New Net.Mail.SmtpClient("google.smtp.com")
   
9.         Dim Mailmsg As New System.Net.Mail.MailMessage
   
10.         Dim MailBodyHtml As String
    
11. 
    
12.         ' 設定一個信件的附檔
    
13.         Dim mail_attachment As New System.Net.Mail.Attachment("C:\VB_Mail.rar")
    
14. 
    
15.         Mailmsg.IsBodyHtml = True ' 為html內容格式
    
16. 
    
17.         ' 此信的寄件人
    
18.         Mailmsg.From = New Net.Mail.MailAddress("webb@....com", "webb")
    
19.         Mailmsg.Subject = "test_webb"
    
20.         MailBodyHtml = "Mail Message First"
    
21.         MailBodyHtml &= "Mail Message Second"
    
22.         Mailmsg.Body = MailBodyHtml
    
23. 
    
24.         ' 把附檔加入到Mail
    
25.         Mailmsg.Attachments.Add(mail_attachment)
    
26. 
    
27.         ' 將字串裡的;分為多個收件人
    
28.         For Each MA As String In To_Address.Split(";")
    
29.             Mailmsg.To.Add(New Net.Mail.MailAddress(MA, "webbliu.world@gmail.com"))
    
30.         Next
    
31. 
    
32.         ' 密件副本收件人
    
33.         ' Mailmsg.Bcc.Add(New Net.Mail.MailAddress("webb@google.com"))
    
34.         ' Mailmsg.Priority = Net.Mail.MailPriority.Normal
    
35. 
    
36.         ' Smtp(Server) 的帳號與密碼
    
37.         SMTP_Server.Credentials = New System.Net.NetworkCredential("Liuxxx", "123456")
    
38.         SMTP_Server.Send(Mailmsg)
    
39.         MessageBox.Show("Message sent.")

複製代碼

1. 先從工具箱插入以下物件
   
2. txt_watchpath           '      TextBox  (for folder path)
   
3. btn_startwatch          '      Button   (start watching)
   
4. btn_stop                '      Button   (stop watching)
   
5. txt_folderactivity      '      Textbox  (folder activity)
   
6. 
   
7. 
   
8. Imports System.IO
   
9. Imports System.Diagnostics
   
10. 
    
11. 
    
12. Public Class webb_000
    
13.     Public watchfolder As FileSystemWatcher
    
14. 
    
15. 
    
16.     Private Sub btn_startwatch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_startwatch.Click
    
17. 
    
18.         watchfolder = New System.IO.FileSystemWatcher()
    
19. 
    
20.         'this is the path we want to monitor
    
21. 
    
22.         watchfolder.Path = txt_watchpath.Text
    
23. 
    
24.         'Add a list of Filter we want to specify
    
25. 
    
26.         'make sure you use OR for each Filter as we need to
    
27. 
    
28.         'all of those
    
29.         watchfolder.IncludeSubdirectories = True '監視子目錄
    
30.         watchfolder.NotifyFilter = IO.NotifyFilters.DirectoryName
    
31.         watchfolder.NotifyFilter = watchfolder.NotifyFilter Or _
    
32.                                    IO.NotifyFilters.FileName
    
33.         watchfolder.NotifyFilter = watchfolder.NotifyFilter Or _
    
34.                                    IO.NotifyFilters.Attributes
    
35.         ' add the handler to each event
    
36.         AddHandler watchfolder.Changed, AddressOf logchange
    
37.         AddHandler watchfolder.Created, AddressOf logchange
    
38.         AddHandler watchfolder.Deleted, AddressOf logchange
    
39. 
    
40.         ' add the rename handler as the signature is different
    
41. 
    
42.         AddHandler watchfolder.Renamed, AddressOf logrename
    
43. 
    
44.         'Set this property to true to start watching
    
45.         watchfolder.EnableRaisingEvents = True
    
46. 
    
47.         btn_startwatch.Enabled = False
    
48.         btn_stop.Enabled = True
    
49. 
    
50.         'End of code for btn_start_click
    
51.     End Sub
    
52. 
    
53.     Private Sub txt_folderactivity_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_folderactivity.TextChanged
    
54.     End Sub
    
55.     Private Sub logchange(ByVal source As Object, ByVal e As  _
    
56.                      System.IO.FileSystemEventArgs)
    
57.         If e.ChangeType = IO.WatcherChangeTypes.Changed Then
    
58.             txt_folderactivity.Text &= "File " & e.FullPath & _
    
59.                                     "已修改" & Now & vbCrLf
    
60.         End If
    
61.         If e.ChangeType = IO.WatcherChangeTypes.Created Then
    
62.             txt_folderactivity.Text &= "File " & e.FullPath & _
    
63.                                      " has been created已建立" & Now & vbCrLf
    
64.         End If
    
65.         If e.ChangeType = IO.WatcherChangeTypes.Deleted Then
    
66.             txt_folderactivity.Text &= "File " & e.FullPath & _
    
67.                                     " 已刪除" & Now & vbCrLf    'Now 就是目前日期時間
    
68.         End If
    
69.     End Sub
    
70. 
    
71. 
    
72.     Public Sub logrename(ByVal source As Object, ByVal e As  _
    
73.                                 System.IO.RenamedEventArgs)
    
74.         txt_folderactivity.Text &= "File" & e.OldName & _
    
75.                       " has been renamed to 已更名為" & e.Name & vbCrLf
    
76.     End Sub
    
77.     Private Sub btn_stop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_stop.Click
    
78.         ' Stop watching the folder
    
79. 
    
80.         watchfolder.EnableRaisingEvents = False
    
81.         btn_startwatch.Enabled = True
    
82.         btn_stop.Enabled = False
    
83.     End Sub
    
84. End Class

複製代碼