Batya
|
 Posted: Mon Apr 05, 2010 16:00 Post subject: |
 |
|
| DoctorIkari wrote: | | Batya, работает как часы, но это ренэймер - нужен бэкапщик файлов/папок |
Хмм... Задумался о своём 
| Code: | '======================================================================
' Копирование выделенных файлов\папок с
' добавлением в начало и конец нового имени определённого текста
' Параметры:
' {файл-список} {текст в начале} {текст в конце}
' Пример параметров вызова из TC:
' %L "_" ".bak"
'======================================================================
Option Explicit
Dim FSO, FileList, List, F, S1, S2, Path, Name
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
Path = FSO.GetParentFolderName(F)
If FSO.FileExists(F) Then
Name = FSO.GetFile(F).Name
FSO.CopyFile F, Path & "\" & S1 & Name & S2
End If
If FSO.FolderExists(F) Then
Name = FSO.GetFolder(F).Name
If Right(F, 1) = "\" Then F = Left(F, Len(F) - 1)
FSO.CopyFolder F, Path & "\" & S1 & Name & S2
End If
End If
Next
Set FSO = Nothing
Wscript.Quit |
Вахмурка
Что-то мне подсказывает, что ты не учёл возможность наличия пробелов в именах и не выполнил условие: | DoctorIkari wrote: | | выделив несколько папок и файлов ... |
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
