Prevodjenje u C!

Imports System.IO
Imports MailBee.Mime
Imports MailBee.AntiSpam

Module Sample
    Sub Main(ByVal args() As String)
        Dim filter As BayesFilter = New BayesFilter()
        Dim msg As MailMessage = New MailMessage()

        filter.LoadDatabase("C:\AntiSpam\spam.dat", "C:\AntiSpam\nonspam.dat")

        ' Train Bayesian filter for spam messages.
        Dim files() As String = Directory.GetFiles("C:\AntiSpam\Spam", "*.eml")
        For Each file As String In files
            msg.LoadMessage(file)
            filter.TrainFilter(msg, True) ' Mark as spam.
        Next
       
        ' Train Bayesian filter for non-spam messages.
        files = Directory.GetFiles("C:\AntiSpam\NonSpam", "*.eml")
        For Each file As String In files
            msg.LoadMessage(file)
            filter.TrainFilter(msg, False) ' Mark as non-spam.
        Next
       
        ' Save Bayesian database to disk.
        filter.SaveDatabase("C:\AntiSpam\spam.dat", "C:\AntiSpam\nonspam.dat")
    End Sub
End Module