求教一个获取路径的问题?

[DMwuzei]

我做了个filewacher,来监视C:\test.txt文本文件,代码是这样的.(直接把路径写了进去,这样可以实现效果)

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
Me.filewatcher.Path = "C:\" --------------------------------------(如何修改?)
Me.filewatcher.NotifyFilter = NotifyFilters.Size
Me.filewatcher.Filter = "test.txt" -------------------------------(如何修改?)
AddHandler Me.filewatcher.Changed, New FileSystemEventHandler(AddressOf Me.filewatcher_Changed)
Me.filewatcher.EnableRaisingEvents = True
End Sub


现在我想做个openfiledialog来实现获取 文本路径.

应该怎么写?

[兔子-顾问]

Imports System.IO

Public Class Form1
    Dim filewatcher As New filesystemwatcher
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Dim dlg As New OpenFileDialog()
        dlg.Filter = "*.txt|*.txt"
        If dlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then Exit Sub
        Me.filewatcher.NotifyFilter = NotifyFilters.Size
        Me.filewatcher.Path = Path.GetPathRoot(dlg.FileName)
        Me.filewatcher.Filter = Path.GetFileName(dlg.FileName)
        AddHandler Me.filewatcher.Changed, AddressOf MyFileSystemEventHandler
        Me.filewatcher.EnableRaisingEvents = True
    End Sub
    Public Sub MyFileSystemEventHandler(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs)
        MessageBox.Show(e.FullPath)
    End Sub
End Class

[只在此山中]

Dim opfDlg As New OpenFileDialog
opfDlg.Filter = "*.*|*.*"
opfDlg.Multiselect = False
opfDlg.Title = "选择文件"
opfDlg.ShowDialog()
If opfDlg.FileName <> "" Then
Me.filewatcher.Path =opfDlg.FileName.Substring(0,opfDlg.FileName.LastIndexOf("\") + 1)
Me.filewatcher.Filter = opfDlg.FileName.Substring(opfDlg.FileName.LastIndexOf("\") + 1)

end if