From 58ec4564aeebbe57d69595ee3a41af59ecc28ed1 Mon Sep 17 00:00:00 2001 From: "Michael J. Seiferling" Date: Thu, 4 Aug 2016 09:30:22 -0600 Subject: [PATCH] Fix for issue #57 --- GBM/Forms/frmAddWizard.vb | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/GBM/Forms/frmAddWizard.vb b/GBM/Forms/frmAddWizard.vb index 5568f9d..a0ae70d 100644 --- a/GBM/Forms/frmAddWizard.vb +++ b/GBM/Forms/frmAddWizard.vb @@ -81,7 +81,6 @@ Public Class frmAddWizard Dim sName As String = txtName.Text Dim sProcessFullPath As String = txtProcessPath.Text Dim sProcessPath As String = Path.GetDirectoryName(sProcessFullPath) - Dim sProcess As String = Path.GetFileNameWithoutExtension(sProcessFullPath) Dim sProcessSummaryText As String = Path.GetFileName(sProcessFullPath) & " (" & sProcessPath & ")" Dim sSavePath As String = txtSavePath.Text Dim bIsAbsolute As Boolean = mgrPath.IsAbsolute(sSavePath) @@ -89,11 +88,23 @@ Public Class frmAddWizard Dim bTimeStamp As Boolean = chkTimeStamp.Checked Dim sFileType As String = txtFileTypes.Text Dim sExcludeList As String = txtExcludeList.Text + Dim sProcess As String Dim sItem As String() Dim sItems As String() Dim sValues As String() Dim lstItem As ListViewItem + 'Handle Process + If Path.HasExtension(sProcessFullPath) Then + If sProcessFullPath.ToLower.EndsWith(".exe") Then + sProcess = Path.GetFileNameWithoutExtension(sProcessFullPath) + Else + sProcess = Path.GetFileName(sProcessFullPath) + End If + Else + sProcess = Path.GetFileName(sProcessFullPath) + End If + If Not bIsAbsolute Then sSavePath = mgrPath.DetermineRelativePath(sProcessPath, sSavePath) End If