Flasher
|
 Posted: Wed Jun 29, 2011 06:09 Post subject: |
 |
|
| Code: | '===========================================
' Перемещение содержимого выделенных папок в каталог
' активной панели с их последующим удалением
' Параметры: %L
'===========================================
With CreateObject("Scripting.FileSystemObject")
Set TempFile = .OpenTextFile(WScript.Arguments(0), 1)
Do While Not TempFile.AtEndOfStream
N = TempFile.ReadLine
If .FolderExists(N) Then
Set FF = .GetFolder(N)
For Each F In FF.SubFolders
PD = F.ParentFolder.ParentFolder
If Not .FolderExists(PD & "\" & F.Name) Then
.MoveFolder F, PD & "\"
Else
F.Copy PD & "\" & F.Name & "_Copy"
F.Delete
End If
Next
For Each F In FF.Files
PD = F.ParentFolder.ParentFolder
If Not .FileExists(PD & "\" & F.Name) Then
.MoveFile F, PD & "\"
Else
F.Copy PD & "\" & .GetBaseName(F) &"_Copy." & .GetExtensionName(F)
F.Delete
End If
Next
If FF.Size = 0 Then FF.Delete
End If
Loop
End With
Wscript.Quit |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
