Don't assume that a directory doesn't exist when chkDirExist is called

MoscaDotTo · Dec 22, 2018 · 3d9a015 · 3d9a015
1 parent 14adb8a
commit 3d9a015
Show file tree

Hide file tree

Showing 5 changed files with 2 additions and 1 deletion.
diff --git a/.gitignore b/.gitignore
@@ -33,3 +33,4 @@
 /winapp2ool/obj/Release/winapp2ool.vbprojAssemblyReference.cache
 /winapp2ool/obj/Release/winapp2ool.exe
 /winapp2ool/obj/Debug/winapp2ool.exe
+/.vs/*
diff --git a/.vs/slnx.sqlite b/.vs/slnx.sqlite
diff --git a/.vs/winapp2/v16/.suo b/.vs/winapp2/v16/.suo
diff --git a/winapp2ool/bin/Debug/winapp2ool.exe b/winapp2ool/bin/Debug/winapp2ool.exe
diff --git a/winapp2ool/components/inifilehandler.vb b/winapp2ool/components/inifilehandler.vb
@@ -97,7 +97,7 @@ Public Module iniFileHandler
     ''' </summary>
     ''' <param name="dir">A user defined windows directory</param>
     Public Sub chkDirExist(ByRef dir As String)
-        If pendingExit() Then Exit Sub
+        If pendingExit() Or Directory.Exists(dir) Then Exit Sub
         Dim iExitCode As Boolean = False
         menuHeaderText = "Error"
         While Not iExitCode