Excel macro GetOpenFileName - Detail View and sort

Private Const OPENFILENAMESTRUCT_LENGTH As Long = 88
Private Const WM_COMMAND = &H111
Public Const WM_NOTIFY As Long = &H4E&
Public Const VIEWDETAILS As Long = &H702C
Public Const SORTMODIFIED As Long = &H7605
Public Const SORTATTRIBUTES As Long = &H7608
Public Const OPENFILENAME_ENABLEHOOK As Long = &H20
Public Const OPENFILENAME_EXPLORER As Long = &H80000
Public Const OPENFILENAME_ENABLESIZING As Long = &H800000
 
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
    pvReserved As Long
    dwReserved As Long
    flagsEx    As Long
End Type
 
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
    "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function FindWindowEx Lib "user32" Alias _
    "FindWindowExA" (ByVal hwndParent As Long, ByVal hWndChildAfter As Long, _
                     ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
   (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
'
' Hook function so we can set initial view - detail, sort order
'
Public Function OpenHookProc(ByVal hwnd As Long, ByVal uMsg As Long, _
                            ByVal wParam As Long, ByVal lParam As Long) As Long
 
    Dim hwndParent As Long
    Dim hwndListView As Long
   
    Select Case uMsg
        Case WM_NOTIFY
            hwndParent = GetParent(hwnd)
            hwndListView = FindWindowEx(hwndParent, 0, "SHELLDLL_DefView", vbNullChar)
            If hwndListView > 0 Then
                Call SendMessage(hwndListView, WM_COMMAND, ByVal VIEWDETAILS, ByVal 0&)
                ' sort by attribute then modified is always ascending, then modified again will make descending
                Call SendMessage(hwndListView, WM_COMMAND, ByVal SORTATTRIBUTES, ByVal 0&)
                Call SendMessage(hwndListView, WM_COMMAND, ByVal SORTMODIFIED, ByVal 0&)
                Call SendMessage(hwndListView, WM_COMMAND, ByVal SORTMODIFIED, ByVal 0&)
            End If
    End Select
End Function
Public Function FARPROC(pfn As Long) As Long
    FARPROC = pfn
End Function
'
' Get data filename
'
Public Function GetDataFilename(MyForm As Object, MyFolder As String, MyFilter As String) As String
    Dim OpenFile As OPENFILENAME
    Dim lReturn As Long
    Dim sFilter As String
    Dim MyParent As Long
    Dim MyDialog As Long
 
    OpenFile.lStructSize = Len(OpenFile)
    '// Define your wildcard string here
    sFilter = "Microsoft Excel and XML Spreadsheet files (" & MyFilter & ".xls; " & MyFilter & ".xml)" & Chr(0) & MyFilter & ".xls; " & MyFilter & ".xml" & Chr(0) & _
                "All Files (*.*)" & Chr(0) & "*.*" & Chr(0)
    OpenFile.lpstrFilter = sFilter
    OpenFile.nFilterIndex = 1
    OpenFile.lpstrFile = String(257, 0)
    OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
    OpenFile.lpstrFileTitle = OpenFile.lpstrFile
    OpenFile.nMaxFileTitle = OpenFile.nMaxFile
    OpenFile.lpstrInitialDir = MyFolder
    OpenFile.lpstrTitle = "Select a File"
    OpenFile.lStructSize = OPENFILENAMESTRUCT_LENGTH
    OpenFile.hwndOwner = FindWindow("ThunderDFrame", MyForm.Caption)
    OpenFile.flags = OPENFILENAME_EXPLORER Or OPENFILENAME_ENABLEHOOK Or OPENFILENAME_ENABLESIZING
    OpenFile.lpfnHook = FARPROC(AddressOf OpenHookProc)
 
    lReturn = GetOpenFileName(OpenFile)
    If lReturn = 0 Then
        GetDataFilename = "FALSE"
    Else
        GetDataFilename = OpenFile.lpstrFile
    End If
End Function
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104: