закрыть все окна explorer с определенным закголовком
написана давно прога на дельфях, но гибкости некоторой нет.
Открыто много окон explorer на разные папки, в т.ч.и на сетевыу "\\....."
Скрипт должен закрыть все окна, чей заголовок начинается? например с \\SERVER\.....
|
PowerShell:
Код:
(New-Object -Com Shell.Application).Windows() | Where LocationUrl -like "*//Server/*" | Foreach Quit
|
сорри, не уточнил... на wsh бы...
|
Код:
Option Explicit
Dim strPattern
Dim objWebBrowser
strPattern = "SERVER"
For Each objWebBrowser In WScript.CreateObject("Shell.Application").Windows
With objWebBrowser
If TypeName(.Document) = "IShellFolderViewDual2" Then
If StrComp(Left(.LocationURL, Len("file://" & strPattern)), "file://" & strPattern, vbTextCompare) = 0 Then
'WScript.Echo .LocationURL
.Quit
End If
End If
End With
Next
WScript.Quit 0
|
Iska, я речь веду не про не про браузер, а про windows explorer...
|
Опиум, я тоже. Браузер — это «HTMLDocument», Проводник — «IShellFolderViewDual2».
|
Iska, просто у меня твой скрипт не отработал почемуто. Плотно не разбирался.
|
Цитата Iska:
Проводник — «IShellFolderViewDual2». »
а что тогда такое IShellFolderViewDual3 ?)
который у меня (поэтому твой скрипт и не аллё)
я заменил Left на конструкцию
Код:
Instr(TypeName(.Document),"IShellFolderViewDual")=1
и заработало.
Кстати. почему вы используете Left хотя Instr(....)=1 проще? |
Цитата:
Цитата Опиум
Проводник — «IShellFolderViewDual2». »
а что тогда такое IShellFolderViewDual3 ?)
который у меня (поэтому твой скрипт и не аллё) »
|
Опиум, у Вас какая ОС?
Цитата:
Цитата Опиум
я заменил Left на конструкцию
Код:
Instr(TypeName(.Document),"IShellFolderViewDual")=1
»
|
У меня нет там функции «Left()»:
Цитата:
Цитата Iska
Код:
If TypeName(.Document) = "IShellFolderViewDual2" Then
»
|
Цитата:
Цитата Опиум
Кстати. почему вы используете Left хотя Instr(....)=1 проще? »
|
Проще… и неправильно. Если речь про:
Цитата:
Цитата Iska
Код:
If StrComp(Left(.LocationURL, Len("file://" & strPattern)), "file://" & strPattern, vbTextCompare) = 0 Then
»
|
|
Microsoft Windows [Version 6.1.7601] w7 eng ent sp1
Цитата:
Цитата Iska
Проще… и неправильно. Если речь про: »
|
где может быть косяк? |
Дабы не возникло расхождений (как выше), покажите Ваш полный код. |
Iska, Код ваш, я просто заменил left на instr
Код:
Option Explicit
Dim strPattern,s,c
Dim objWebBrowser
strPattern = ""
c=0
For Each objWebBrowser In WScript.CreateObject("Shell.Application").Windows
With objWebBrowser
'WScript.Echo TypeName(.Document)
'If TypeName(.Document) = "IShellFolderViewDual3" Then
If Instr(TypeName(.Document),"IShellFolderViewDual")=1 Then
'If StrComp(Left(.LocationURL, Len("file://" & strPattern)), "file://" & strPattern, vbTextCompare) = 0 Then
s=.LocationURL
'проверяем, если открыт сетевой ресурс \\****
If (Instr(s,"file://")=1) and (mid(s,8,1)<>"/")Then
'WScript.Echo .LocationURL
c=c+1
.Quit
End If
End If
End With
Next
WScript.Echo "Closed:" & c
WScript.Quit 0
|
Время: 05:56.
© OSzone.net 2001-
