BeTeP
|
 Posted: Wed Jul 25, 2007 13:57 Post subject: |
 |
|
Когда-то mozers™ писал скрипт для открытия нескольких файлов в нужном редакторе. Возможно это то, что нужно.
| Code: | ' File: List2Multi.vbs
' Description: Скрипт для загрузки выделенных в Total Commander файлов в заданную программу
' Version: 1.1
' Author: mozers™
' Comments: Предназначен для программ НЕ поддерживающих загрузку нескольких файлов с ком.строки.
' Поэтому скрипт вызывает программу многократно:
' programm.exe file1.ext
' programm.exe file2.ext
' programm.exe file3.ext
' Sample: Создаем кнопку на панели инструментов:
' Команда: %Commander_Path%\Scripts\List2Multi.vbs "c:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE"
' Параметры: %L
' _________________________________________________________
Option Explicit
Dim WshShell, FSO, sEditor, objArgs, FileList, sFile
Set objArgs = WScript.Arguments
Set WshShell = WScript.CreateObject("WScript.Shell")
sEditor = WshShell.ExpandEnvironmentStrings(objArgs(0))
If objArgs.Count < 2 Then
WshShell.Run """" & sEditor & """", 1, False
Else
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FileList = FSO.OpenTextFile(objArgs(1), 1, False)
Do While Not FileList.AtEndOfStream
sFile = FileList.ReadLine
If Right(sFile,1) = "\" Then
WshShell.Run """" & sEditor & """", 1, False
Exit Do
End If
WshShell.Run """" & sEditor & """ """ & sFile & """", 1, False
Loop
End If
WScript.Quit
|
По крайней мере у меня получилось открыть 10 выделенных файлов.
Пути к файлу скрипта и Word'a естественно укажешь свои.
_________________
«The Truth Is Out There» |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
