Flasher
|
 Posted: Tue Nov 20, 2018 19:25 Post subject: |
 |
|
BeardFury78
Там просто двойной уровень распаковки при выборе, например, одного родительского каталога.
Заодно можно наткнуться на рекомендацию по этому вопросу. Плюс я там же давал ссылку на 1 уровень.
| BeardFury78 wrote: | | Игнорируя папки, которые содержат больше одной папки, а также файлы. |
Хотя для этого уточнения нужен свой вариант:
| Code: | '============================ VBS ============================
' Переместить одиночные подпапки из выбранных папок в активную
' Условие: путь запуска — пустой
' Параметр: %WF
'=============================================================
Set ShA = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dir = ShA.NameSpace(FSO.GetAbsolutePathName(""))
Set List = FSO.OpenTextFile(WSH.Arguments(0),,,-1)
Do : F = List.ReadLine
If Right(F, 1) = "\" Then
Set Items = ShA.NameSpace(Dir.Self.Path & "\" & F).Items : Items.Filter 73952, "*"
If Items.Count = 1 Then
P = Items.Item(0).Path : Ch = Not FSO.FolderExists(FSO.GetFileName(P))
If FSO.FolderExists(P) Then Dir.MoveHere Items, 5652 : If Ch Then FSO.GetFolder(F).Delete(1)
End If
Else List.Close : WSH.Quit : End If
Loop Until List.AtEndOfStream : List.Close |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Thu Nov 22, 2018 23:02; edited 3 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
