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

私はあなたの質問を理解していますが、作成したばかりのファイルの名前とテキストボックス内のファイルの名前を比較したいと思っていると思います。

1) テキストボックスのテキストも大文字ですか? 比較する前にファイル名を大文字にしています。

2）テキストボックス内のテキストはファイル名に「含まれています」か、おそらくその逆ですか？

3) 条件を .Contains ではなく .Equal にする必要がありますか?

于 2013-09-24T15:28:01.000 に答える