Batya
|
 Posted: Fri Sep 24, 2010 11:24 Post subject: |
 |
|
Переведём дискуссию в конструктивное русло 
vbs-скрипт:
| Code: | '=====================================================================================
' Создание папки с частью имени родительской (по разделитель) и добавлением окончания.
' Копирование в новую папку определённого файла.
' Параметры:
' {Родительская папка} {Разделитель} {Окончание} {Копируемый файл}
' Пример параметров вызова из TC:
' "%P" "_" "job" "C:\MyFold\MyFile.Ext"
'=====================================================================================
Option Explicit
Dim FSO, ParentFold, Separator, NameFold, NewFold, NewFoldEnd, MyFile, Pos
Set FSO = CreateObject("Scripting.FileSystemObject")
ParentFold = WScript.Arguments(0)
Separator = WScript.Arguments(1)
NewFoldEnd = WScript.Arguments(2)
MyFile = WScript.Arguments(3)
If Right(ParentFold, 1) <> "\" Then ParentFold = ParentFold & "\"
NameFold = FSO.GetFolder(ParentFold).Name
Pos = Instr(1, NameFold, Separator, 1)
NewFold = ParentFold & Left(NameFold, Pos) & NewFoldEnd
If Not FSO.FolderExists(NewFold) Then FSO.CreateFolder(NewFold)
If Right(NewFold, 1) <> "\" Then NewFold = NewFold & "\"
FSO.CopyFile MyFile, NewFold & NameFold & "." & FSO.GetExtensionName(MyFile)
Set FSO = Nothing
Wscript.Quit 0
|
_________________
Нет, я не сплю. Я просто медленно моргаю.
Last edited by Batya on Fri Sep 24, 2010 13:14; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
