Show last modified date for templates

MultiTool.Form/frmMain.vb

@@ -124,6 +124,19 @@ Public Class frmMain
 
         Dim oBindingSource = New BindingList(Of Template)
         For Each oTemplate As Template In TemplateLoader.TemplateList
+
+            ' Check template files and update modified date
+            Try
+                Dim oFilePath = IO.Path.Combine(My.GeneralConfiguration.TemplateDirectory, oTemplate.FileName)
+                Dim oFileInfo = New FileInfo(oFilePath)
+
+                If oFileInfo.Exists Then
+                    oTemplate.LastModified = oFileInfo.LastWriteTime
+                End If
+            Catch ex As Exception
+                Logger.Error(ex)
+            End Try
+
             oBindingSource.Add(oTemplate)
         Next
         Return oBindingSource
@@ -287,4 +300,8 @@ Public Class frmMain
         RibbonPageGroupStart.Enabled = True
         SplashScreenManager.CloseWaitForm()
     End Sub
+
+    Private Sub RibbonControl1_Click(sender As Object, e As EventArgs) Handles RibbonControl1.Click
+
+    End Sub
 End Class