[Iska]

wlad1164, ну, не хотите — как хотите. Вот Вам:

Sample.vbs

Код:

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 objOldestFolder.Path
	End If
End With

WScript.Quit 0

Sample.cmd

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set /p var="Number: "
set Number=%var%

rem Тут обрабатывается все что нужно сделать в зависимости от Number

rem Здесь нужно выполнить WSH скрипт
for /f "usebackq delims=" %%i in (
	`cscript.exe //nologo "%~dp0Sample.vbs"`
	) do set sFolder=%%~i

if defined sFolder (
	echo [%sFolder%]
	rem Тут обрабатывается все что нужно сделать в зависимости от sFolder
	pause
) else (
	echo Nothing found
	exit /b 1
)

endlocal
exit /b 0

играйтесь.