打开目录中的最新文件夹

Question

我正在尝试创建一个脚本，用于打开目录中的最新文件夹。

该文件夹的名称每个月都会有所不同（01年1月1日，02日 - 2月e.t.c）。下面似乎找到了最新的文件夹，但是当我添加Shell“explorer.exe”＆amp; “”＆amp; strFullFldrPath，vbNormalFocus打开文件夹。

这是我到目前为止所做的。

Sub GetLatestFolder()

Dim fso As FileSystemObject
Dim fldrRoot As Folder
Dim SubFld As Folder

Dim strFolderName As String
Dim strFullFldrPath As String


Set fso = New FileSystemObject
Set fldrRoot = fso.GetFolder("\\Hbeu.adroot.hsbc\dfsroot\GB002\RRU\DTCC EU Reports\ETD\")

For Each SubFld In fldrRoot.SubFolders
strFolderName = SubFld.Name
strFullFldrPath = fldrRoot & "\" & SubFld.Name

Shell "explorer.exe" & "" & strFullFldrPath, vbNormalFocus
    Exit For
Next SubFld

End Sub

Answer 1

您尝试运行"explorer.exeC:\WHATEVER"，即您在可执行文件及其参数之间缺少空格。
引号是容纳带空格的路径的好主意。

Shell "explorer.exe" & " """ & strFullFldrPath & """, vbNormalFocus

你所拥有的保证最新文件夹始终是第一位的，你应该根据名称应用一些逻辑或加载所有目录并进行排序。