Flasher
|
 Posted: Thu Jun 30, 2011 05:41 Post subject: |
 |
|
shveicar
Вариант попроще и побыстрее:
| Code: | ' Добавление ссылок/строк в файл-список из выделенных url/htm(l)
' Параметры: %L "<путь к файлу-списку>"
' Пример: %L "%TСсылки.txt"
'=====================================
With CreateObject("Scripting.FileSystemObject")
On Error Resume Next
If .FileExists(WScript.Arguments(0)) Then
Set TempFile = .OpenTextFile(WScript.Arguments(0),1)
For Each F in Split(TempFile.ReadAll, vbnewline)
Set List = .OpenTextFile(WScript.Arguments(1),8,True)
E = .GetExtensionName(F)
If E="url" Then
List.WriteLine CreateObject("WScript.Shell").CreateShortcut(F).TargetPath
ElseIf E="htm" Or E="html" Then
For Each N in Filter(Split(.OpenTextFile(F).ReadAll, vbnewline), "URL=", true, 1)
List.WriteLine N
Next
End If
List.Close
Next
TempFile.Close
End If
End With |
Last edited by Flasher on Thu Jul 07, 2011 04:07; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
