Flasher
|
 Posted: Mon Apr 18, 2011 07:42 Post subject: |
 |
|
1. Находимся в общей папке.
2. Ctrl+F12, кн. Шаблон, вкладка Плагины: tc | Путь | содержит | папка2\ > кн. Записать > любое имя > OK > OK.
3. Ctrl+B (cm_DirBranch), Ctrl+A
4. Выполнить скрипт:
| Code: | '===================================
' Перемещение выделенных файлов на уровень вверх
' с удалением указанного родительского каталога
' Параметры: %L <имя удаляемой папки>
' Aвтор - Flasher (Batya)
'===================================
Dim WSH, FSO, TempFile, File, MoveFiles, TargetPath, Folder
Set WSH = CreateObject("WScript.Shell")
If WScript.Arguments.Count < 2 Then
WSH.Popup "Не указаны оба параметра!",1.5," ВНИМАНИЕ !",48
Wscript.Quit
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TempFile = FSO.OpenTextFile(WScript.Arguments(0), 1)
MoveFiles = ""
Do While Not TempFile.AtEndOfStream
Set File = FSO.GetFile(TempFile.ReadLine)
TargetPath = File.ParentFolder.ParentFolder
On Error Resume Next
If Not FSO.FileExists(TargetPath & "\" & File.Name) Then
FSO.MoveFile File, TargetPath & "\"
MoveFiles = MoveFiles + File.Name & chr(13)
End If
Set Folder = FSO.GetFolder(TargetPath&"\"&WScript.Arguments(1))
If Folder.Size < 1 Then
Folder.Delete
End If
Loop
If MoveFiles<>"" Then
WSH.Popup "Файлы перемещены!",1,"Результат",64
Else
WSH.Popup "Перемещений файлов не было!",1.4," ВНИМАНИЕ !",48
End If
Set WSH = Nothing
Set TempFile = Nothing
Set Folder = Nothing
Set File = Nothing
Set FSO = Nothing
Wscript.Quit |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
