Страница 4 из 6
Добавлено: Чт фев 01, 2018 22:56
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]
Добавлено: Пт фев 02, 2018 11:01
Lisabon
Flasher
Что покажет на ярлыке?
Код: Выделить всё
Сценарий: C:\Link.vbs
Строка: 4
Символ: 1
Ошибка: Объект не поддерживает это свойство или метод: 'CreateObject(...).Items'
Код: 800A01B6
Источник: Ошибка выполнения Microsoft VBScript
Добавлено: Пт фев 02, 2018 11:45
Flasher
Lisabon
Поспешил. Ещё раз.
Добавлено: Пт фев 02, 2018 11:56
Lisabon
Flasher
Ещё раз
Первый диалог: 1
Второй диалог: Истина
Добавлено: Пт фев 02, 2018 12:07
Flasher
Lisabon
Хм. А теперь? Пробуй также, когда в той же папке есть/нет целевого объекта у ярлыка.
Добавлено: Пт фев 02, 2018 12:18
Lisabon
Flasher
В первом диалоге: 0
Потом ошибка:
Код: Выделить всё
Сценарий: C:\Link.vbs
Строка: 8
Символ: 1
Ошибка: Требуется объект: 'Items.Item(...)'
Код: 800A01A8
Источник: Ошибка выполнения Microsoft VBScript
Добавлено: Пт фев 02, 2018 12:23
Flasher
Lisabon
А теперь?
Lisabon писал(а):В первом диалоге: 0
Курсор ставил на файл/линк/папку? Данные шапки соблюдены?
Добавлено: Пт фев 02, 2018 13:23
Lisabon
Flasher
Курсор ставил на файл/линк/папку?
На ярлык.
Данные шапки соблюдены?
' Условие: Путь запуска пустой
' Параметр: %N
Да.
А теперь?
Lisabon писал(а):
В первом диалоге: 0
Потом ошибка:
Код: Выделить всё
Сценарий: C:\Link.vbs
Строка: 8
Символ: 1
Ошибка: Требуется объект: 'Items.Item(...)'
Код: 800A01A8
Источник: Ошибка выполнения Microsoft VBScript
Добавлено: Пт фев 02, 2018 13:59
Flasher
Lisabon писал(а):На ярлык.
С ярлыком причина понятна. Но я имел в виду все варианты, а не один из. А также
это.
В
скрипте копирования, где проявляется
ошибка, что покажет, если между 61 и 62 строкой вставить?:
Добавлено: Пт фев 02, 2018 14:52
Lisabon
Flasher
все варианты, а не один из
На файл и папку:
Диалог №1: 1
Диалог №2: Ложь
Диалог №3: Ложь
На файл и папку, то что указал выше. На ярлык, то что указывал
тут
На ярлыке и на папке:
Диалог №1: 0
Потом ошибка:
Код: Выделить всё
Сценарий: C:\ReadMe.vbs
Строка: 63
Символ: 7
Ошибка: Требуется объект: 'Item(...)'
Код: 800A01A8
Источник: Ошибка выполнения Microsoft VBScript
На файле:
Диалог: 1
Добавлено: Пт фев 02, 2018 14:55
Flasher
Lisabon
Теперь ситуация проясняется. Этот ярлык какой целевой объект имеет?
Добавлено: Пт фев 02, 2018 15:00
Lisabon
Flasher
Код: Выделить всё
С:\Scrat's Continental Crack Up_h1080p Part 2.lnk
на
Код: Выделить всё
"E:\Video\Torrents\Other\Scrat's Continental Crack Up_h1080p Part 2.mkv"
Добавлено: Пт фев 02, 2018 15:13
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]
Добавлено: Пт фев 02, 2018 15:28
Lisabon
Flasher
Этот что покажет?
Диалог №1: Истина
Диалог №2: 1
Диалог №3: Истина
Тогда не понимаю
Может забить на этот скрипт? Мне как-то не удобно, перед тобой. Тратишь своё время на поиски причины.
Добавлено: Пт фев 02, 2018 15:42
Flasher
Lisabon
Ещё больше путаницы. То не работает, то работает...
Замени Items.Item(0) на oFolder.ParseName(N) в 62 строке. Будет ошибка?
Ну, так, может, кому-то тоже скрипт понадобится.