From 5a3b6eb3dd10313b1aef6e74ab9b5f92c68abc4f Mon Sep 17 00:00:00 2001
From: KwakJooYoung <jykwak719@gmail.com>
Date: Thu, 18 Dec 2025 15:59:34 +0900
Subject: [PATCH] =?UTF-8?q?OpenFileDialog=20=EC=9D=98=20InitialDirectory?=
 =?UTF-8?q?=20=EC=84=A4=EC=A0=95=20NULL=20=EC=98=88=EC=99=B8=20=EC=B2=98?=
 =?UTF-8?q?=EB=A6=AC?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 MainForm.vb | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/MainForm.vb b/MainForm.vb
index db53fc2..925bc17 100644
--- a/MainForm.vb
+++ b/MainForm.vb
@@ -185,10 +185,14 @@ Public Class MainForm
     Private Function Openfile(title As String, fileName As String, filter As String) As String
         Dim ofd As OpenFileDialog = New OpenFileDialog
         ofd.Title = title
-        ofd.InitialDirectory = Path.GetDirectoryName(fileName)
         ofd.Filter = filter
-        Dim dr As DialogResult = ofd.ShowDialog
+        If fileName.Length <> 0 Then
+            ofd.InitialDirectory = Path.GetDirectoryName(fileName)
+        Else
+            ofd.InitialDirectory = ""
+        End If
 
+        Dim dr As DialogResult = ofd.ShowDialog
         If dr = DialogResult.OK Then
             Return ofd.FileName
         End If