Flasher
|
 Posted: Mon Jun 27, 2011 12:41 Post subject: |
 |
|
Понятно, возможно, версия старовата для этой фичи. В общем, если не работает и портабельность тебе не нужна, то используем старый дедовский метод. Регистрируй хелпер, а скрипт будет такой:
| Code: | ' Создать файлы с именами выделенных в каталоге сетевого устройства
' файлов, расширением 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" либо указать постоянный путь к каталогу на этом диске. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
