打开目录中的最新文件夹

Question

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

文件夹的名称每个月都会有所不同（1月1日，2月2日等）。 下面似乎找到了最新的文件夹，但是当我在Shell“ explorer.exe”＆“”＆strFullFldrPath，vbNormalFocus，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

您所拥有的并不能保证最新的文件夹始终位于最前面，您应该基于名称应用某些逻辑或加载所有目录并进行排序。