.net - 最初の呼び出し後にループ内で WaitForChanged が起動しない

Question

乾杯！私は .net 4.0 で作業しており、vb.net コンソール アプリケーションを作成しています。アプリケーションはフォルダーを監視し、新しいファイルがフォルダーに保存されるたびに何かを行う必要があります

最初の周回は常に機能しますが、その後の周回は失敗するようで、その理由がわかりません。それをテストするために、テスト フォルダーにたくさんのテスト イメージがあり、一度に 1 つずつキャプチャ フォルダーにコピーし、処理を待ってから、そこに別のイメージをドロップしようとします。

コードは次のとおりです。

Public Sub FileChanges()
      Dim result As System.IO.WaitForChangedResult
      watchfolder = New System.IO.FileSystemWatcher()
      watchfolder.Path = My.Settings.WATCHDIR.ToString()
      Console.WriteLine("Application Running, Waiting for a file")
      result = watchfolder.WaitForChanged(System.IO.WatcherChangeTypes.Created)
      Console.WriteLine("Filechange Detected")
      Dim fileName As String = My.Settings.WATCHDIR.ToString() & result.Name.ToString()
End Sub
sub main()
   Do
     system.threading.thread.sleep(5000)
     FileChanges()
   Loop
End Sub

何かご意見は？コンソール アプリケーションで、ファイルが作成されるまで待ってから何かを行うためのより良い方法はありますか?