Code development platform for open source projects from the European Union institutions

Skip to content
Snippets Groups Projects
Commit 8e0ef570 authored by Martin Dippold's avatar Martin Dippold
Browse files

* Correction of release note and user manual call in welcome window

parent cd07f73f
No related branches found
No related tags found
No related merge requests found
......@@ -29,7 +29,7 @@ Public Class F_Welcome
'Open Release Notes
Private Sub B_Release_Click(sender As System.Object, e As System.EventArgs) Handles B_Release.Click
Dim release_fname As String = joinPaths(MyPath, "Docs", "VECTO-CSE_ReleaseNotes_" & AppVers & ".pdf")
Dim release_fname As String = (From fi As IO.FileInfo In (New IO.DirectoryInfo(joinPaths(MyPath, "Docs")).GetFiles("*VECTO-CSE_ReleaseNotes*.pdf", IO.SearchOption.TopDirectoryOnly)) Order By fi.LastAccessTime Select fi)(0).FullName
Try
System.Diagnostics.Process.Start(release_fname)
Catch ex As Exception
......@@ -39,7 +39,7 @@ Public Class F_Welcome
'Open Quick Start Guide
Private Sub B_UserM_Click(sender As System.Object, e As System.EventArgs) Handles B_UserM.Click
Dim manual_fname As String = joinPaths(MyPath, "Docs", "VECTO_CSE-User Manual_" & AppVers & ".pdf")
Dim manual_fname As String = (From fi As IO.FileInfo In (New IO.DirectoryInfo(joinPaths(MyPath, "Docs")).GetFiles("*VECTO_CSE-User Manual*.pdf", IO.SearchOption.TopDirectoryOnly)) Order By fi.LastAccessTime Select fi)(0).FullName
Try
System.Diagnostics.Process.Start(manual_fname)
Catch ex As Exception
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment