Страница 2 из 3

Добавлено: Пн июн 27, 2011 12:18
Flasher
KrechetovRS
Я там скрипт поправлял слегка, там сейчас один параметр.

Добавлено: Пн июн 27, 2011 12:20
KrechetovRS
(((
результат нулевой

Добавлено: Пн июн 27, 2011 12:22
Flasher
А путь к утилите соответствует, как я писал, скриптовому?

Добавлено: Пн июн 27, 2011 12:22
KrechetovRS
я абсолютный прописал
CreateObject("WScript.Shell").Exec("c:\Program Files\Total Commander\Utils\TCMC\TCMC.exe CM2021")

Добавлено: Пн июн 27, 2011 12:26
Flasher
KrechetovRS
Т.е. портабельность не нужна? Ну, смотри. Я вообще-то спрашивал про реальный путь, а не строку в скрипте.

Добавлено: Пн июн 27, 2011 12:26
KrechetovRS
вот тут не понял )))
реальный путь - это что?

Добавлено: Пн июн 27, 2011 12:27
Flasher
Путь к реальному местоположению утилиты.
IE, кстати, какой версии?

Добавлено: Пн июн 27, 2011 12:31
KrechetovRS
ХЗ, я МОззилой полузуюсь

Добавлено: Пн июн 27, 2011 12:36
Flasher
KrechetovRS
На оба вопроса ответь. Я тоже IE не пользуюсь, он в системе по умолчанию стоит.

Добавлено: Пн июн 27, 2011 12:38
KrechetovRS
Версия IE 7.0.6002.18005

Добавлено: Пн июн 27, 2011 12:41
Flasher
Понятно, возможно, версия старовата для этой фичи. В общем, если не работает и портабельность тебе не нужна, то используем старый дедовский метод. Регистрируй хелпер, а скрипт будет такой:

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

' Создать файлы с именами выделенных в каталоге сетевого устройства
' файлов, расширением M3U и соответствующим NFS-путём в их содержимом 
' Необходима регистрация Script Helper ActiveX for TC
' Параметры: "Путь назначения>\" <фильтр-расширение>
' Пример:"%T" mkv
'===================================================
With CreateObject("TCScript.Helper")
  T=.GetTextFromClip
  .SendCommand 2021
  Clip=.GetTextFromClip
  .SetTextToClip(T)
End With
With CreateObject("Scripting.FileSystemObject")
  For Each F In Split(Clip, vbNewLine)
   If .GetExtensionName(F)=WScript.Arguments(1) Then
    Set N = .OpenTextFile(WScript.Arguments(0)&.GetBaseName(F)&".m3u",2,True)
    N.WriteLine "nfs:"&F
    N.Close
   End If
  Next
End With
WScript.Quit
Самое главное забыл спросить - параметр (путь назначения) какой указывался? Если "%P", то не удивительно, что не работает. Файлы, AFAIK, с помощью стандартных методов WSH могут создаваться только на обычном (несетевом) носителе. Поэтому лучше в другой панели открыть каталог обычного диска и оставить "%T" либо указать постоянный путь к каталогу на этом диске.

Добавлено: Пн июн 27, 2011 14:21
Batya
KrechetovRS писал(а):Получается не тот текст в файле
Немного поправил.
Так пойдёт?

Добавлено: Пн июн 27, 2011 14:34
Flasher
Batya
А ShareName разве показывает ip-адрес?

Добавлено: Пн июн 27, 2011 14:41
Batya
Flasher писал(а):А ShareName разве показывает ip-адрес?
Смотря как замаплены сетевые диски.
KrechetovRS писал(а):Имеем - nfs:Y:/Мультфильмы/СССР/!А-Д/А в этой сказке было так… (1984).mkv

Добавлено: Пн июн 27, 2011 14:44
Flasher
Мне просто интересно, сработает ли это у KrechetovRS с "//192.168.0.9:".