OpenFileDialog 의 InitialDirectory 설정 NULL 예외 처리

This commit is contained in:
KwakJooYoung 2025-12-18 15:59:34 +09:00
parent 026fe3dd40
commit 5a3b6eb3dd

View File

@ -185,10 +185,14 @@ Public Class MainForm
Private Function Openfile(title As String, fileName As String, filter As String) As String Private Function Openfile(title As String, fileName As String, filter As String) As String
Dim ofd As OpenFileDialog = New OpenFileDialog Dim ofd As OpenFileDialog = New OpenFileDialog
ofd.Title = title ofd.Title = title
ofd.InitialDirectory = Path.GetDirectoryName(fileName)
ofd.Filter = filter 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 If dr = DialogResult.OK Then
Return ofd.FileName Return ofd.FileName
End If End If