使用VBA打开文件夹并按修改日期排序？

Question

我目前正在使用：

Call Shell("explorer.exe " & str_folder, vbNormalFocus)

要打开一个文件夹，但想添加一些额外的代码以使其打开，但已在修改日期中列出，最近更新在顶部？

Answer 1

实际上这可以工作（在Windows 10中测试）。但是像往常一样，SendKeys statement仅模拟击键，因此不是一种非常可靠的方法。

Option Explicit

Public Sub OpenExplorerSortByDate()
    Const str_folder As String = "c:\"

    Shell "explorer.exe " & str_folder, vbNormalFocus

    Application.Wait (Now + TimeValue("00:00:03"))

    SendKeys "%"
    SendKeys "A"
    SendKeys "O"
    SendKeys "{DOWN}"
    SendKeys "{ENTER}"
End Sub