Копирование файла, а не ярлыка?

[Flasher]

Lisabon
Да что ж такое там мелкомягкие понакоцали...

[cut="Что покажет скрипт на файле/папке/ярлыке?"]

Код: Выделить всё

' Условие: Путь запуска пустой
' Параметр: %N

Set oFolder = CreateObject("Shell.Application").NameSpace(CreateObject("WScript.Shell").CurrentDirectory)
Set Items = oFolder.Items
Items.Filter 78064, Replace(WSH.Arguments(0), ";", "?")
MsgBox Items.Count
P = Items.Item(0).Path
MsgBox oFolder.ParseName(Mid(P,InStrRev(P, "\")+1)).IsLink
MsgBox Items.Item(0).IsLink

[/cut]

[Lisabon]

Flasher

Что покажет на ярлыке?

Код: Выделить всё

Сценарий:	C:\Link.vbs
Строка:	4
Символ:	1
Ошибка:	Объект не поддерживает это свойство или метод: 'CreateObject(...).Items'
Код:	800A01B6
Источник: 	Ошибка выполнения Microsoft VBScript

[Flasher]

Lisabon
Поспешил. Ещё раз.

[Lisabon]

Flasher

Ещё раз

Первый диалог: 1
Второй диалог: Истина

[Flasher]

Lisabon
Хм. А теперь? Пробуй также, когда в той же папке есть/нет целевого объекта у ярлыка.

[Lisabon]

Flasher
В первом диалоге: 0
Потом ошибка:

Код: Выделить всё

Сценарий:	C:\Link.vbs
Строка:	8
Символ:	1
Ошибка:	Требуется объект: 'Items.Item(...)'
Код:	800A01A8
Источник: 	Ошибка выполнения Microsoft VBScript

[Flasher]

Lisabon
А теперь?

В первом диалоге: 0

Курсор ставил на файл/линк/папку? Данные шапки соблюдены?

[Lisabon]

Flasher

Курсор ставил на файл/линк/папку?

На ярлык.

Данные шапки соблюдены?

' Условие: Путь запуска пустой
' Параметр: %N

Да.

А теперь?

В первом диалоге: 0
Потом ошибка:

Код: Выделить всё

Сценарий:	C:\Link.vbs
Строка:	8
Символ:	1
Ошибка:	Требуется объект: 'Items.Item(...)'
Код:	800A01A8
Источник: 	Ошибка выполнения Microsoft VBScript

[Flasher]

На ярлык.

С ярлыком причина понятна. Но я имел в виду все варианты, а не один из. А также это.

В скрипте копирования, где проявляется ошибка, что покажет, если между 61 и 62 строкой вставить?:

Код: Выделить всё

MsgBox Items.Count

[Lisabon]

Flasher

все варианты, а не один из

На файл и папку:
Диалог №1: 1
Диалог №2: Ложь
Диалог №3: Ложь

А также это

На файл и папку, то что указал выше. На ярлык, то что указывал тут

В скрипте копирования, где проявляется ошибка, что покажет, если между 61 и 62 строкой вставить?:

Код: Выделить всё

MsgBox Items.Count

На ярлыке и на папке:
Диалог №1: 0
Потом ошибка:

Код: Выделить всё

Сценарий:	C:\ReadMe.vbs
Строка:	63
Символ:	7
Ошибка:	Требуется объект: 'Item(...)'
Код:	800A01A8
Источник: 	Ошибка выполнения Microsoft VBScript

На файле:
Диалог: 1

[Flasher]

Lisabon
Теперь ситуация проясняется. Этот ярлык какой целевой объект имеет?

[Lisabon]

Flasher

Код: Выделить всё

С:\Scrat's Continental Crack Up_h1080p Part 2.lnk

на

Код: Выделить всё

"E:\Video\Torrents\Other\Scrat's Continental Crack Up_h1080p Part 2.mkv"

[Flasher]

Lisabon
Тогда не понимаю..

[cut="Этот что покажет?:"]

Код: Выделить всё

Set oFolder = CreateObject("Shell.Application").NameSpace("C:\")
MsgBox oFolder.ParseName("Scrat's Continental Crack Up_h1080p Part 2.lnk").IsLink
Set Items = oFolder.Items
Items.Filter 78064, "Scrat's Continental Crack Up_h1080p Part 2.mkv"
MsgBox Items.Count
If Items.Count Then MsgBox Items.Item(0).IsLink

[/cut]

[Lisabon]

Flasher

Этот что покажет?

Диалог №1: Истина
Диалог №2: 1
Диалог №3: Истина

Тогда не понимаю

Может забить на этот скрипт? Мне как-то не удобно, перед тобой. Тратишь своё время на поиски причины.

[Flasher]

Lisabon
Ещё больше путаницы. То не работает, то работает...
Замени Items.Item(0) на oFolder.ParseName(N) в 62 строке. Будет ошибка?

Ну, так, может, кому-то тоже скрипт понадобится.