[Iska]

или только там,где включено отображение пути в заголовке? »

Не интересовался.

Я же предпочитаю пользовать, например, WSH:

Код:

Option Explicit

Dim objWebBrowser

For Each objWebBrowser In WScript.CreateObject("Shell.Application").Windows
	If InStr(1, TypeName(objWebBrowser.Document), "ShellFolderViewDual", vbTextCompare) > 0 Then
		WScript.Echo objWebBrowser.Document.Folder.self.Path
	End If
Next

WScript.Quit 0

[Amunrah]

alpap,

серьезно?! где же папка: "C:\papka" »

Рекомендую юзать хелп по командам, обычно там все детально описано
in:

Код:

tasklist /fi "imagename eq explorer.exe" /v /fo:list

out:

Код:

Имя образа:     explorer.exe
PID:            1112
Имя сессии:     Console
№ сеанса:       1
Память:         60*672 КБ
Состояние:      Running
Пользователь:   PRO\Amunrah
Время ЦП:       0:00:06
Заголовок окна: C:\Temp <- Вот она

Darkar25,

а это будет работать везде или только там,где включено отображение пути в заголовке? »

Только если включить пути в заголовка и окна в отдельных процессах... хотя можно попробовать подрубить эти опции из батника же путем изменения нужных ключей реестра, но оговорюсь - это надо еще проверить

П.С. На мой взгляд вариант, который предложил Iska определенно лучше

[Darkar25]

Iska,я сейчас не за пк...приеду домой,протестирую,и если работает то закрою тему.на первый взгляд ваш вариант может работать...

[alpap]

Заголовок окна: C:\Temp <- Вот она »

ну а вытащить-то надо постараться еще:

Код:

@echo off
for /f "tokens=2*" %%a in ('"tasklist /fi "imagename eq explorer.exe" /v /fo:list"') do set "ph=%%b"
echo %ph%
pause

[Amunrah]

alpap,

ну а вытащить-то надо постараться еще: »

Можно чуть проще поступить.

Код:

@echo off
tasklist /fi "imagename eq explorer.exe" /v 2>nul|findstr /l "C:\Temp">nul
if %errorlevel% EQU 0 echo найдено
pause

Лучше через регулярку конечно, но, думаю, для примера сойдет

[alpap]

Можно чуть проще поступить »

findstr /l "C:\Temp" »

думаю при известном (заданном) пути я и не стал бы так изгаляться - зачем искать то что имеется?

[Amunrah]

Цитата Amunrah: Можно чуть проще поступить » Цитата Amunrah: findstr /l "C:\Temp" » думаю при известном (заданном) пути я и не стал бы так изгаляться - зачем искать то что имеется? »

Но по условию путь известен, батник должен проверять открыт ли заданный каталог... к тому-же, как искать, то что не имеется? ))

[alpap]

как искать, то что не имеется? »

вариант:
просто открыта последняя среди сотни, какая не помню - нужен срочно путь
ну как я себе представляю и мой код именно и дает путь последней открытой папки

[Amunrah]

вариант: просто открыта последняя среди сотни, какая не помню - нужен срочно путь ну как я себе представляю и мой код именно и дает путь последней открытой папки »

Я подразумевал контекст вопроса, а вы решаете задачу, не относящуюся к данной теме... не вижу смысла спорить. Но да, узнать заголовок последнего открытого каталога можно через цикл.

[Darkar25]

Option Explicit Dim objWebBrowser For Each objWebBrowser In WScript.CreateObject("Shell.Application").Windows If InStr(1, TypeName(objWebBrowser.Document), "ShellFolderViewDual", vbTextCompare) > 0 Then WScript.Echo objWebBrowser.Document.Folder.self.Path End If Next WScript.Quit 0 »

я извиняюсь за такой тупой вопрос,но...как это юзать?)))я так понимаю нужен файл name.wsh и туда этот скрипт...но мне пишет что сценарий не указан