0

我实现了这个事件FileSystemWatcher

Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs)
    If e.Name.ToUpper() == "MYTEXTFILE.TXT" then
        ' code '
    End If
End Sub

有没有办法监控创建的文件是否在类似的文本框中?

Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs)
    If e.Name.ToUpper.contains(textbox1.text) then
          ' code '
End Sub
4

2 回答 2

1

在多行文本框中有多个文件并且每个文件名都在单独的行中要求您应该单独拆分文件名,然后使用刚刚创建的文件检查每个文件名。

Private Shared Sub OnCreated(source As Object, e As FileSystemEventArgs)

    ' Get an array of the files at each line and remove eventually spurious empty lines
    Dim files() = textbox1.Text.Split(New String() {Environment.NewLine}, _
                                      StringSplitOptions.RemoveEmptyEntries)
    Dim newFile = e.Name.ToUpper()
    for each file in files
        if file.ToUpper() = newFile Then
            ' code '
            Exit For
        End If
    Next
End Sub
于 2013-09-24T15:46:41.020 回答
0

我不是 100% 清楚我理解你的问题,但我假设你想将刚刚创建的文件名与文本框中的文件名进行比较。

1)文本框中的文本也是大写的吗?在比较之前,我看到您将文件名大写。

2)文本框中的文本是否以文件名“包含”,也许反过来?

3) 条件应该是 .Equal 而不是 .Contains?

于 2013-09-24T15:28:01.000 回答