OpenFileDialog 의 InitialDirectory 설정 NULL 예외 처리

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