Batya
|
 Posted: Tue May 03, 2011 09:52 Post subject: |
 |
|
| ask-rus wrote: | | В завершение, кнопочку бы для добавления выделенных в этот список |
vbs-скрипт:
| Code: | '=====================================================================
' Добавление с символом "*" выделенных файлов\папок в файл-список
' Параметры:
' {исходный файл-список} {целевой файл-список}
' Пример параметров при вызове из TC:
' %L C:\Путь\Файл.txt
'=====================================================================
Dim FSO, F, FF
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FF = FSO.OpenTextFile(WScript.Arguments(1), 8, True)
With FSO.OpenTextFile(WScript.Arguments(0), 1)
Do While Not .AtEndOfStream
F = Trim(.ReadLine)
If F <> "" Then
If FSO.FolderExists(F) Then
If Right(F, 1) = "\" Then F = Mid(F, 1, Len(F)-1)
FF.WriteLine F & "*" & "\"
End If
If FSO.FileExists(F) Then
FF.WriteLine F & "*"
End If
End If
Loop
End With
FF.Close
Set FF = Nothing
Set FSO = Nothing
Wscript.Quit()
|
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
