Создание файла с содержимым на основе имени другого файла

[Flasher]

KrechetovRS
Я там скрипт поправлял слегка, там сейчас один параметр.

[KrechetovRS]

(((
результат нулевой

[Flasher]

А путь к утилите соответствует, как я писал, скриптовому?

[KrechetovRS]

я абсолютный прописал
CreateObject("WScript.Shell").Exec("c:\Program Files\Total Commander\Utils\TCMC\TCMC.exe CM2021")

[Flasher]

KrechetovRS
Т.е. портабельность не нужна? Ну, смотри. Я вообще-то спрашивал про реальный путь, а не строку в скрипте.

[KrechetovRS]

вот тут не понял )))
реальный путь - это что?

[Flasher]

Путь к реальному местоположению утилиты.
IE, кстати, какой версии?

[KrechetovRS]

ХЗ, я МОззилой полузуюсь

[Flasher]

KrechetovRS
На оба вопроса ответь. Я тоже IE не пользуюсь, он в системе по умолчанию стоит.

[KrechetovRS]

Версия IE 7.0.6002.18005

[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" либо указать постоянный путь к каталогу на этом диске.

[Batya]

Получается не тот текст в файле

Немного поправил.
Так пойдёт?

[Flasher]

Batya
А ShareName разве показывает ip-адрес?

[Batya]

А ShareName разве показывает ip-адрес?

Смотря как замаплены сетевые диски.

Имеем - nfs:Y:/Мультфильмы/СССР/!А-Д/А в этой сказке было так… (1984).mkv

[Flasher]

Мне просто интересно, сработает ли это у KrechetovRS с "//192.168.0.9:".