[Iska]

wlad1164, Вам «самую старую» для каждого из найденных каталогов VIDEO? Или одну для всех найденных каталогов VIDEO? Если второе — то вот Вам на WSH:

Код:

Option Explicit

Dim objDrive
Dim objFolder

Dim dtOldestDateCreated
Dim objOldestFolder


dtOldestDateCreated = #01/01/2100#
Set objOldestFolder = Nothing

With WScript.CreateObject("Scripting.FileSystemObject")
	For Each objDrive In .Drives
		If .FolderExists(objDrive.DriveLetter & ":\Video") Then
			For Each objFolder In .GetFolder(objDrive.DriveLetter & ":\Video").SubFolders
				If objFolder.DateCreated < dtOldestDateCreated Then
					dtOldestDateCreated = objFolder.DateCreated
					Set objOldestFolder = objFolder
				End If
			Next
		End If
	Next
	
	If Not objOldestFolder Is Nothing Then
		WScript.Echo "Path to folder: " & objOldestFolder.Path
		WScript.Echo "Date created:   " & objOldestFolder.DateCreated
		WScript.Echo "Day differense: " & DateDiff("d", objOldestFolder.DateCreated, Now())
		
		WScript.CreateObject("WScript.Shell").Run "explorer.exe """ & objOldestFolder.Path & """", 1, False
	Else
		WScript.Echo "Nothing found."
		WScript.Quit 1
	End If
End With

WScript.Quit 0