打开目录中的最近文件夹

Question

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

该文件夹的名称每个月都会有所不同（01-Jan，02-Feb e.t.c）。下面似乎找到最新的文件夹，但我得到的错误文件没有找到当我添加在壳牌“explorer.exe”&“”& 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 

你有什么不保证最新的文件夹永远是第一，你应该应用基于名字的一些逻辑或加载所有目录和排序。