[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

[wlad1164]

Iska, спасибо за столь скорый ответ! Но хотелось бы решения в cmd, или результат как то передать bat скрипт, просто нужно добавить этот фрагмент в текущий bat скрипт.
Еще раз спасибо что не поленились написать код

[Iska]

wlad1164, что именно — передать? Покажите код Вашего пакетного файла, укажите место, куда Вы хотите добавить новый код.

[wlad1164]

Iska, передать результат, грубо говоря в процессе работы bat вызвать wsh скрипт который отработает и вернет в bat переменную=результату своей работы, и далее продолжится выполнение bat скрипта

Что то вроде этого.

test.bat
---------------------------
выполнение скрипта
запуск whs из bat
получить результат whs скрипта в переменную bat
продолжение выполнения bat скрипта
---------------------------

под результатом имеется ввиду

одну для всех найденных каталогов VIDEO »

[Iska]

wlad1164, повторяю: покажите код Вашего пакетного файла, укажите место, куда Вы хотите добавить новый код.

[wlad1164]

Iska, да пример тут не имеет смысла, логика проста

HTML код:

@echo off
set /P var="Number: "
Set Number=%var%
:: Тут обрабатывается все что нужно сделать в зависимости от Number

:: Здесь нужно выполнить WSH скрипт
Set value=Результат WSH скрипта
:: Тут обрабатывается все что нужно сделать в зависимости от value
Pause

Как то так, вроде все словами описал выше))))

[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

играйтесь.