建站
咨詢
售后
建站咨詢
新聞中心
學(xué)習(xí)VB.NET時(shí)，你可能會(huì)遇到VB.NET使用FileSystemWatcher問(wèn)題，這里將介紹VB.NET使用FileSystemWatcher問(wèn)題的解決方法，在這里拿出來(lái)和大家分享一下。
我們提供的服務(wù)有：成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、外貿(mào)網(wǎng)站建設(shè)、微信公眾號(hào)開(kāi)發(fā)、網(wǎng)站優(yōu)化、網(wǎng)站認(rèn)證、陽(yáng)曲ssl等。為上千余家企事業(yè)單位解決了網(wǎng)站和推廣的問(wèn)題。提供周到的售前咨詢和貼心的售后服務(wù)，是有科學(xué)管理、有技術(shù)的陽(yáng)曲網(wǎng)站制作公司
VB.NET使用FileSystemWatcher
偵聽(tīng)文件系統(tǒng)更改通知，并在目錄或目錄中的文件發(fā)生更改時(shí)引發(fā)事件。VB.NET使用FileSystemWatcher 監(jiān)視指定目錄中的更改?？杀O(jiān)視指定目錄中的文件或子目錄的更改。該組件可以監(jiān)視本地計(jì)算機(jī)、網(wǎng)絡(luò)驅(qū)動(dòng)器或遠(yuǎn)程計(jì)算機(jī)上的文件。（當(dāng)然只讀的媒體介質(zhì)比如cd和dvd，它們文件的屬性不會(huì)改變，所以也就不能觸發(fā)事件）
若要監(jiān)視所有文件中的更改，請(qǐng)將 Filter 屬性設(shè)置為空字符串 ("")。若要監(jiān)視特定的文件，請(qǐng)將 Filter 屬性設(shè)置為該文件名。例如，若要監(jiān)視文件 MyDoc.txt 中的更改，請(qǐng)將 Filter 屬性設(shè)置為“MyDoc.txt”。也可以監(jiān)視特定類型文件中的更改。例如，若要監(jiān)視文本文件中的更改，請(qǐng)將 Filter 屬性設(shè)置為“*.txt”。
可監(jiān)視目錄或文件中的若干種更改。例如，可監(jiān)視文件或目錄的 Attributes、LastWrite 日期和時(shí)間或 Size 方面的更改。通過(guò)將VB.NET使用FileSystemWatcher.NotifyFilter 屬性設(shè)置為 NotifyFilters 值之一來(lái)達(dá)到此目的。
可監(jiān)視文件或目錄的重命名、刪除或創(chuàng)建。例如，若要監(jiān)視文本文件的重命名，請(qǐng)將 Filter 屬性設(shè)置為“*.txt”，并調(diào)用 WaitForChanged 方法之一，調(diào)用時(shí)給出 WatcherChangeTypes 值的 Renamed。
新建一個(gè)project，選擇windows 服務(wù)類型，命名為WinServiceFileWatching，我們看到project的引用中自動(dòng)添加了System.ServiceProcess 名空間（這就是創(chuàng)建一個(gè)服務(wù)的函數(shù)集）。從工具中的組件中選擇FileSystemWatcher1，拖放到service1的設(shè)計(jì)模式上.
然后添加以下代碼：
- Protected Overrides Sub OnStart(ByVal args() As String)
- ' 在此處添加啟動(dòng)服務(wù)的代碼。此方法應(yīng)設(shè)置具體的操作
- ' 以便服務(wù)可以執(zhí)行它的工作。
- FileSystemWatcher1.EnableRaisingEvents = True
- ' 我們也可以根據(jù)輸入的參數(shù)args動(dòng)態(tài)設(shè)定要監(jiān)視的對(duì)象
- 'FileSystemWatcher1.path= args(0)
- End Sub
- ' 創(chuàng)建文件（夾）時(shí)候觸發(fā)，記錄創(chuàng)建信息到e:\log.txt中
- Private Sub FileSystemWatcher1_Created(ByVal sender As Object,
ByVal e As System.IO.FileSystemEventArgs) Handles FileSystemWatcher1.Created- Dim fs As New FileStream("e:\log.txt", FileMode.Append)
- Dim sw As New StreamWriter(fs)
- sw.WriteLine(Now() & Microsoft.VisualBasic.vbTab & "創(chuàng)建" & e.FullPath)
- sw.Close()
- fs.Close()
- End Sub
本文標(biāo)題：講述VB.NET使用FileSystemWatcher
網(wǎng)站網(wǎng)址：http://m.fisionsoft.com.cn/article/cdohooi.html
