'Trial Mode
Dim quality As New QualityLogic()
 
'Licensed Mode
'QualityLogic quality = new QualityLogic("User Name from Receipt", "License Key from Receipt");
 
'Test using this open source project:  https://github.com/GregFinzer/Compare-Net-Objects
Dim qualityResult As QualityResult = quality.GetQualityViolationsForDirectory("c:\_git\Compare-Net-Objects\Compare-Net-Objects")
 
Dim reportPath As String = Path.Combine(Environment.CurrentDirectory, "QualityResult.html")
quality.ExportViolationsToHtmlReportFile(qualityResult, TemplateName.BlackAndBlue, reportPath)