[Iska]

Проводник — «IShellFolderViewDual2». » а что тогда такое IShellFolderViewDual3 ?) который у меня (поэтому твой скрипт и не аллё) »

Опиум, у Вас какая ОС?

я заменил Left на конструкцию Код: Instr(TypeName(.Document),"IShellFolderViewDual")=1 »

У меня нет там функции «Left()»:

Код: If TypeName(.Document) = "IShellFolderViewDual2" Then »

Кстати. почему вы используете Left хотя Instr(....)=1 проще? »

Проще… и неправильно. Если речь про:

Код: If StrComp(Left(.LocationURL, Len("file://" & strPattern)), "file://" & strPattern, vbTextCompare) = 0 Then »