Dim oFSO As Object
Dim oFolder As Object
Dim oSubFolder As Object
Dim vDate As Date
Dim sFolder As String
 
Set oFSO = CreateObject("Scripting.FileSystemObject")
 
Set oFolder = oFSO.GetFolder("d:\temp")  ' Start-Ordner
For Each oSubFolder In oFolder.SubFolders
  If oSubFolder.DateCreated > vDate  Then
    sFolder = oSubFolder.Name
    vDate = oSubFolder.DateCreated
  End If
Next
 
Debug.Print "Neuester Ordner: " & sFolder

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de