[新手求助]当用GetOpenFileName要打开的文件不存在时如何返回打开的文件夹？

Question

新手，请大家帮忙！！！！
想实现这样的功能：
1.对话框打开某个文件夹的某种类型的文件，当文件存在时在TEXT1中显示文件名。
2.当没有此种类型文件或不是需要的文件时，可以随便输个字符，在TEXT1中显示文件路径。
以下是程序。
*************************
Private Declare Function GetCurrentDirectory Lib "kernel32" Alias "GetCurrentDirectoryA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OpenFilename) As Long
Private Type OpenFilename
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    iFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    Flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End TypePrivate Function ShowFileDialog() As String
    Dim ofn As OpenFilename
    ofn.lStructSize = Len(ofn)
    ofn.hwndOwner = hWnd
    ofn.lpstrFilter = "文件名称" + Chr$(0) + "TYSF.*" + Chr$(0)
    ofn.lpstrFile = String(256, 0)
    ofn.nMaxFile = 255
    ofn.lpstrTitle = "打开文件"
    ofn.Flags = &H800000 + &H1000 + &H8 + &H4
    GetOpenFileName ofn
    If Mid(ofn.lpstrFile, 1, 1) <> Chr(0) Then ShowFileDialog = ofn.lpstrFile
End FunctionPrivate Sub Command1_Click()
    Dim FileName As String
    Dim sSave     As String
     Dim path As String
    
    FileName = ShowFileDialog
    If FileName <> "" Then
Text1.Text = FileNameEnd If
End Sub

Answer 1

'用这个
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nMaxCustFilter As Long
    nFilterIndex As Long
    lpstrFile As String
    nMaxFile As Long
    lpstrFileTitle As String
    nMaxFileTitle As Long
    lpstrInitialDir As String
    lpstrTitle As String
    flags As Long
    nFileOffset As Integer
    nFileExtension As Integer
    lpstrDefExt As String
    lCustData As Long
    lpfnHook As Long
    lpTemplateName As String
End TypePublic Function ShowOpenBox(hwnd As Long, Caption As String, Optional Filter As String = "所有文件(*.*)|*.*") As String
    Dim Opf As OPENFILENAME
    Dim rtn As Long, lng As Long    With Opf
        .lStructSize = Len(Opf)
        .lpstrFile = Space(254)
        .nMaxFile = 255
        .lpstrFileTitle = Space(254)
        .nMaxFileTitle = 255
        .flags = 0
        .lpstrInitialDir = App.path
        .hInstance = App.hInstance
        .hwndOwner = hwnd
        .lpstrFilter = Replace(Filter, "|", Chr(0))
        .lpstrTitle = Caption
        rtn = GetOpenFileName(Opf)
        If rtn >= 1 Then
            ShowOpenBox = Trim(.lpstrFile)
        Else
            ShowOpenBox = ""
        End If
    End With
End Function

Answer 2

其实就是把ofn.Flags = &H800000 + &H1000 + &H8 + &H4改为
ofn.Flags =0就不会出现找不到文件的消息框