How can vb6 get the file format selected in openfilenameA lib "comdlg32.dll"?

[xiaoyao]

I WAN'T TO SAVE FILE(NOT open file)
How can vb6 get the file format selected in the pop-up file dialog box by calling get openfilenameA lib "comdlg32.dll"?

IT'S BY AI,ERR:

Private Declare Function GetOpenFileName Lib "comdlg32.dll" (ByVal lpofn As OPENFILENAME) As Long
Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenFilename As OPENFILENAME) As Long

Private Type OPENFILENAME
    lStructSize As Long
    hwndOwner As Long
    hInstance As Long
    lpstrFilter As String
    lpstrCustomFilter As String
    nFilterIndex As Long
    nMaxFile As Long
    lpstrFile As String
    nFileOffset As Long
    nFileExtension As Long
    lpstrInitialDir As String
    lpstrTitle As String
    Flags As Long
    lpstrDefExt As String
    lPOS as Long
End Type

Private Sub OpenFileDialog()
    Dim ofn As OPENFILENAME
    Dim FileName As String
    
    ' ???????
    ofn.lStructSize = SizeOf(ofn)
    ofn.hwndOwner = Me.hWnd
    ofn.lpstrFilter = "All Files (*.*)|*.*|Text Files (*.txt)|*.txt|..."
    ofn.lpstrFile = FileName
    ofn.nMaxFile = Len(FileName) * 2
    ofn.Flags = OFN_FILEMUSTEXIST Or OFN_PATHMUSTEXIST Or OFN_HIDEREADONLY
    
    ' ????
    If GetOpenFileName(ofn) Then
        ' ?????????
        MsgBox "Selected file: " & FileName
        ' ?????????????????.txt, .docx, ??
        Dim fileExt As String
        Dim fileDir As String
        fileDir = Left(FileName, InStrRev(FileName, "\") - 1)
        fileExt = Right(FileName, InStrRev(FileName, ".") - 1)
        MsgBox "File format: " & fileExt
    Else
        MsgBox "Error opening file"
    End If
End Sub

[xiaoyao]

call saveas("123.xls","*.doc,*.xlsx,*.pdf")
if i select *.doc
how but filename is .xls,not 123.doc

[Arnoutdv]

Because you already specified the extension in the file title

[xiaoyao]

Can the file format only be used when it is opened, but not when it is saved?