Vorletzt erstellten Ordner

Sub LetzterOrdner()
Dim objFSO, objOrdner, objSubFolder
Dim strBasisordner As String, strLetzterOrdner As String, datLtzDatum As Date
On Error GoTo Error
strBasisordner = "C:\Test" 'Dieser Ordner soll durchsucht werden
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOrdner = objFSO.GetFolder(strBasisordner)
Set objSubFolder = objOrdner.subfolders
For Each objOrdner In objSubFolder
If objOrdner.datecreated > datLtzDatum Then
strLetzterOrdner = objOrdner.Name
datLtzDatum = objOrdner.datecreated
End If
Next
MsgBox strLetzterOrdner
On Error GoTo 0
Exit Sub
Error:
MsgBox "Der Pfad ist nicht vorhanden"
End Sub