Flasher
|
 Posted: Thu Jun 23, 2011 23:14 Post subject: |
 |
|
Если я правильно понял:
| Code: | ' Создать файлы с именами выделенных в каталоге сетевого устройства
' файлов, расширением M3U и соответствующим NFS-путём в их содержимом
' Параметры: "Путь назначения>\"
' Пример: "%T"
'===========================================
CreateObject("WScript.Shell").Exec("%COMMANDER_PATH%\Utils\TCMC\TCMC.exe CM2021")
Clip = ""
With CreateObject("InternetExplorer.Application")
.Navigate("about:blank")
Clip = Replace(.document.parentWindow.clipboardData.getData("Text"),"\","/")
.Quit
End With
With CreateObject("Scripting.FileSystemObject")
For Each F In Split(Clip, vbNewLine)
Set N = .OpenTextFile(WScript.Arguments(0)&.GetBaseName(F)&".m3u",2,True)
N.WriteLine "nfs:"&F
N.Close
Next
End With |
Путь к утилите TCMC должен совпадать с приведённым в скрипте.
Если надо, могу поставить условие, чтобы обрабатывались только MKV из всего выделенного.
| KrechetovRS wrote: | | лень менять прямой слеш на обратный |
 Зачем менять, если указано, что нужен именно прямой в содержимом файла? | KrechetovRS wrote: | | при помощи скрипта "Копировать имена файлов с UNC-путями" |
Это никакой не скрипт, а обычная внутренняя команда ТС cm_CopyNetNamesToClip.
Last edited by Flasher on Mon Jun 27, 2011 11:42; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
