Функция расположение файла в windows xp

Ленивый кусок мяса

Сообщения: 1979
Благодарности: 721

Конфигурация компьютера
Материнская плата: Biostar B75MU3B
HDD: SSD CX400-256, HDD Hitachi HDS721010CLA330
Звук: Realtek ALC662
Монитор: BenQ 21.5″ GW2265HM
Прочее: Logitech K800, A4Tech X7 F2

Сообщения: 26256
Благодарности: 7637

Сообщения: 51431
Благодарности: 14734

Конфигурация компьютера
Материнская плата: ASUS P8Z77-V LE PLUS
HDD: Samsung SSD 850 PRO 256 Гб, WD Green WD20EZRX 2 Тб
Звук: Realtek ALC889 HD Audio
CD/DVD: ASUS DRW-24B5ST
ОС: Windows 8.1 Pro x64
Прочее: корпус: Fractal Design Define R4

Источник

Сообщения: 25
Благодарности: 0

Короче надоело, уже и не знаю что и думать впрочем ну его (((
Вот это рабочий рег файл
REGEDIT4

[HKEY_CLASSES_ROOT\lnkfile\shell\FindTarget]
@=»&Найти объект»
[HKEY_CLASSES_ROOT\lnkfile\shell\FindTarget\command]
@=»C:\\WINDOWS\\System32\\WScript.exe \»C:\\vbsBolgarchukR\\FindTarget.js\» \»%1\»»

А вот этот почему то не рабочий
REGEDIT4

[HKEY_CLASSES_ROOT\lnkfile\shell\FindTarget]
@=»&Найти объект»
[HKEY_CLASSES_ROOT\lnkfile\shell\FindTarget\command]
@=»C:\\WINDOWS\\System32\\WScript.exe \»С:\\vbsBolgarchukR\\FindTarget.js\» \»%1\»»
Хотя они как мне кажется идентичны. Может имеет значения с какой папки его запускать . Или даже не знаю.

ну и FindTarget.js
// FindTarget.js
// аргумент — путь к lnk-ярлыку
try <
OpenParentFolderAndSelectItem(
GetFolderItemByFilePath(WScript.Arguments.Item(0)).GetLink.Target,
1|4|8|16
);
> catch (Err) <>;

function GetFolderItemByFilePath(Path) <
var FSO=new ActiveXObject(«Scripting.FileSystemObject»);
return (
new ActiveXObject(«Shell.Application»)).
NameSpace(FSO.GetParentFolderName(Path)).ParseName(FSO.GetFileName(Path));
>

function OpenParentFolderAndSelectItem(FolderItem, Flags) <
var
Shell=FolderItem.Application,
ShellWindows=Shell.Windows(),
ParentFolder=FolderItem.Parent,
Err;
Shell.Open(ParentFolder);
for (var t=50; —t>=0; WScript.Sleep(50))
try <
var FolderView=ShellWindows.Item().Document;
if (FoldersAreEqual(ParentFolder, FolderView.Folder)) <
FolderView.SelectItem(FolderItem, Flags);
return;
>
> catch (Err) <>
>

function FoldersAreEqual(Folder1, Folder2) <
while (Folder1!=Folder2) <
if (Folder1==null || Folder2==null || Folder1.Self.Path!=Folder2.Self.Path)
return false;
Folder1=Folder1.ParentFolder; Folder2=Folder2.ParentFolder;
>
return true;
>

по пути C:\vbsBolgarchukR
хотя я думал в этой папке сделать еще папку context_menu но все другое не работает. Только первый рег рабочий именно с тем путем остальные как не крути как не меняй не пашут.
Выдает

2015-12-30 22_06_34-ProbnaXpFren3 — VMware Workstation.png
[IMG]]https://img-fotki.yandex.ru/get/9170/10425752.3/0_ed1c2_598303ce_orig.png[/IMG]

Последний раз редактировалось BolgarchukR, 30-12-2015 в 23:19 . Причина: как у вас тут фото вставить мало того что с компа нельзя загрузить так еще и ссылки не отображаются

Источник