如何处理荒谬的评论？

Question

使用经典的VB6应用程序,成千上万的疯狂评论.

例:

If garrFilePaths(i).FilePath = "" Then
'do nothing
Else
MsgBox "File Not Found (" & garrFilePaths(i).FilePath & ")", vbOKOnly, gcstrMessageBoxTitle
End If

Answer 1

重构代码并删除它们.

If Not (garrFilePaths(i).FilePath = "") Then
    MsgBox "File Not Found (" & garrFilePaths(i).FilePath & ")", vbOKOnly, gcstrMessageBoxTitle
End If 

这通常适用于评论说,做有意义了.