Модераторы: d-view, Моторокер, Avada, CaptainFlint, Nik
Чего-то я не понял тебя. Ну да, есть, но они опять же есть только в папке с проблемным именем. Соответственно меняться должны файлы в ней (вместе с теми, что в подпапке) и перенос в безпроблемную с заменой.Flasher писал(а):Т.е конфликтные имена таки есть?
Здрасте. Я же цитату привёл:Strek писал(а):Ну да, есть, но они опять же есть только в папке с проблемным именем.
В контексте задачи всё, что содержит скобки и совпадает в доскобочной части с аналогом, является "проблемным".Strek писал(а):Но есть и такое, что папка без проблемного имени, но в ней содержаться файлы, например:
А там вообще есть подпапки на разной глубине?Strek писал(а):В папке с проблемным именем нет подпапок с проблемными именами.
Теперь понялFlasher писал(а):Здрасте. Я же цитату привёл:
Вообще папки есть, но глубина не известна, так как там, как я уже упоминал - 45Гб портативного софта. Поэтому глубина может быть разной. к пример есть Brackets, а ней папка для локалхоста и естественно в ней глубина большая.Flasher писал(а):А там вообще есть подпапки на разной глубине?
Так и что с ними делать-то?Strek писал(а):либо проблемная папка и в ней проблемные файлы (могут быть), либо без проблемная папка и в ней проблемные файлы.
Блин, я ж не зря написал откуда они все взялисьFlasher писал(а):Так и что с ними делать-то?
не может быть.Flasher писал(а): И что делать со скобками в непроблемной папке при наличии/отсутствии аналога? Оставлять как есть или тоже переименовывать?
будет правильным вариант - переименовывать внутри и перемещать с заменойFlasher писал(а): Переименовывать с заменой внутри родителя или сразу переносить как есть с заменой в получателе?
Код: Выделить всё
'================================= VBS ================================
' Алгоритм действий скрипта:
' 1) Удаление <пробел>(*) справа базовых имён файлов структуры рабочего
' каталога с автозаменой при совпадении имён с существующими файлами
' 2) Удаление в структуре рабочего каталога <пробел>(*) справа
' имён каталогов при отсутствии таковых без удаляемой части
' 3) Перемещение с автозаменой содержимого из каталогов текущего
' уровня с наличием в именах <пробел>(*) в каталоги без оного
' 4) Удаление опустошённых каталогов
' Условие: путь запуска — пустой
'======================================================================
Option Explicit : Dim FSO, ShA, Dir, Items, Itms, Fd
Set ShA = CreateObject("Shell.Application")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Dir = ShA.NameSpace(FSO.GetAbsolutePathName(""))
If StrComp(Dir.Self.Path,_
FSO.GetParentFolderName(WSH.ScriptFullName),1) = 0 Then WSH.Quit
FFolder Dir : Set Items = Dir.Items: Items.Filter 73888, "* (*)"
For Each Fd In Items
Set Itms = Fd.GetFolder.Items
ShA.NameSpace(Left(Fd.Path, InStrRev(Fd.Path, " (") - 1)).MoveHere Itms, 5652
If Fd.GetFolder.Items.Count = 0 Then FSO.DeleteFolder Fd.Path, 1
Next
For Each Fd in Array(Itms, Items, Dir, ShA, FSO)
Set Fd = Nothing
Next
MsgBox Space(29) & "Выполнено!", 4160,_
"Масштабное обрезание имён объектов с автозаменой "
Sub FFolder(Fold)
Path = Fold.Self.Path
Set Items = Fold.Items
Items.Filter 73920, "* (*)*"
Dim F, FPath, Ext, NName, Path, Name, FdPath
For Each F in Items
FPath = F.Path
Ext = FSO.GetExtensionName(FPath)
If Ext <> "" Then Ext = "." & Ext
NName = Split(FSO.GetBaseName(FPath), " (")(0) & Ext
If FSO.FileExists(Path & "\" & NName) _
Then FSO.DeleteFile Path & "\" & NName, 1
F.Name = NName
Next : Items.Filter 73888, "*"
For Each Fd In Items
Name = Fd.Name : FdPath = Fd.Path : FFolder Fd.GetFolder
If InStr(Name, "(") Then
NName = Split(FSO.GetFileName(FdPath), " (")(0)
If Not FSO.FolderExists(Path & "\" & NName) Then Fd.Name = NName
End If
Next
End SubПодумал про него, когда читал, да за своими делами не ответилFlasher писал(а):Важнее было бы на второй вопрос ответить.
А я уж начал думать, что может у нас (в Украине) уже и сюда добралисьFlasher писал(а):Уже 3-й день как доступен.
Всё работает как надо?