Flasher
|
 Posted: Fri Jun 24, 2011 21:43 Post subject: |
 |
|
| Code: | ' Создание html-файлов в активной панели с именами из файла-списка
'и содержимым указанного файла-шаблона
' Параметры: "<Путь к файлу списку>" "<Путь к файлу-шаблону>"
'================================================
With CreateObject("WScript.Shell")
L=.ExpandEnvironmentStrings(WScript.Arguments(0))
T=.ExpandEnvironmentStrings(WScript.Arguments(1))
D=.CurrentDirectory
End With
With CreateObject("Scripting.FileSystemObject")
List=.OpenTextFile(L, 1).ReadAll
On Error Resume Next
For Each F In Split(List, vbNewLine)
If F>vbNullString Then .GetFile(T).Copy D&"\"&F&".html"
Next
End With |
Last edited by Flasher on Sun Jun 26, 2011 02:27; edited 5 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
