我的程序有时有效，有时却无效

Question

我制作了一个WordCount程序，该程序可以计算文件中的单词数量，乍一看似乎可以，但是如果继续运行，它会中断吗？如果删除空白行，也会破坏程序。我觉得这与我的锁有关吗？你们将如何解决？

Sub OpenMail()

    Open "L:\Projekte\Abteilung\Projekt\Vorlage_deutsch" For Input As #1

End Sub

Answer 1

每次启动新线程时，都会重新创建锁WordCount.CountLock和WordCount.CombinedWordCountLock。

您应该只创建一次锁（ （例如，在main函数中），并使所有线程共享它们的单个实例。