Flasher
|
 Posted: Sat Oct 18, 2014 13:17 Post subject: |
 |
|
| Olejko wrote: | 1. Система - Windows 7/8.
2. Возвращать имена без путей, "/images/news/b/" и "/images/news/m/" - это константы. |
Этого достаточно, остальное я не спрашивал.
| Code: | '============================================================================
' Занести в буфер обмена заданные HTML-строки, включая имена выбранных файлов
' Имя родительского каталога файлов в путях задаётся в окне
' Параметр: %WF
'============================================================================
If WScript.Arguments.Count = 0 Then WScript.Quit
Dir = InputBox(String(5, vbnewline) & "Введите имя родительской папки:")
If Trim(Dir) = "" Then WScript.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
Set List = FSO.OpenTextFile(WScript.Arguments(0),,,-1)
Do Until List.AtEndOfStream
File = List.ReadLine
If File <> "" Then
Buff = Buff & vbNewLine & "<a href='/images/news/b/" & Dir & "/" & File & _
"' rel='lightbox[zero]' ><img src='/images/news/m/" & Dir & "/" & File & _
"' width='140' height='93' style='border:1px solid black; margin: 2px;' ></a>"
End If
Loop
With CreateObject("WScript.Shell")
TempFile = CreateObject("Shell.Application")._
NameSpace(.ExpandEnvironmentStrings("%TEMP%")).Self.Path & "\" & FSO.GetTempName
FSO.OpenTextFile(TempFile, 2, True, -1).Write Mid(Buff, 3)
.Run "%comspec% /c clip < """ & TempFile & """", 0, True
End With : FSO.DeleteFile TempFile, 1 |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
