VB.NET 判断文件夹目录与文件是否存在检查

Private Sub BTN_LOAD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesBTN_LOAD.Click
    '文件夹 CHECK
    If Not blnDirExist(TXT_PATH.Text.Trim) Then
        MsgBox("文件夹路径不存在")
        BTN_LOAD.Focus()
        Exit Sub
    End If
    '文件 CHECK
    If Not blnFileExist(TXT_PATH.Text.Trim) Then
        MsgBox("文件不存在")
        BTN_LOAD.Focus()
        Exit Sub
    End If
End Sub

#Region "文件夹存在CHECK"
    Private Function blnDirExist (ByVal strPath As String) As Boolean
        Dim strDirTemp As String()
        strDirTemp = strPath.Split("\")
        strPath = String.Empty
        For i As Integer = 0 To strDirTemp.Length – 2
            strPath += strDirTemp(i) & "\"
        Next

        blnDirExist = System.IO.Directory.Exists(strPath)
    End Function
#End Region

#Region "文件存在CHECK"
    Private Function blnFileExist (ByVal strFile As String) As Boolean
        blnFileExist = System.IO.File.Exists(strFile)
    End Function
#End Region