OpenFileDialog 의 InitialDirectory 설정 NULL 예외 처리
This commit is contained in:
parent
026fe3dd40
commit
5a3b6eb3dd
@ -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
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user