Batya
|
 Posted: Mon Apr 05, 2010 15:15 Post subject: |
 |
|
DoctorIkari
vbs-скрипт:
| Code: | '======================================================================
' Переименование выделенных файлов\папок -
' Добавление в начало и конец имени определённого текста
' Параметры:
' {файл-список} {текст в начале} {текст в конце}
' Пример параметров вызова из TC:
' %L "_" ".bak"
'======================================================================
Option Explicit
Dim FSO, FileList, List, F, FF, S1, S2
Set FSO = CreateObject("Scripting.FileSystemObject")
FileList = WScript.Arguments(0)
S1 = WScript.Arguments(1)
S2 = WScript.Arguments(2)
List = Split(FSO.OpenTextFile(FileList).ReadAll, vbNewLine)
For Each F In List
If F <> "" Then
If FSO.FileExists(F) Then
Set FF = FSO.GetFile(F)
End If
If FSO.FolderExists(F) Then
Set FF = FSO.GetFolder(F)
End If
FF.Name = S1 & FF.Name & S2
Set FF = Nothing
End If
Next
Set FSO = Nothing
Wscript.Quit |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
