Серый форум — VBS: Рекурсивное переименовывание папок в дереве

Re: VBS: Рекурсивное переименовывание папок в дереве

null@example.com (Евген) — Thu, 10 Jul 2014 10:48:43 +0000

alexii пишет:

А проверять наличие уже существующей папки «App» перед переименованием ?
Почему не просто «Folder.Name = "App"»?

Да, так тоже работает...

fso.GetFolder(Subfolder.Path).Name="App"  ' Конечное имя папки

ХЗ, чот как пришло в голову, так и сделал...

Ну а проверка - конечно упустил, но будем надеяться на идеальные условия задачи (сам себе ТЗ не придумываю:-))
Вообще ничо не хотел делать, сижу засыпаю...
Просто знакомый уж обпросился ))) - проснулся на чуток...

Re: VBS: Рекурсивное переименовывание папок в дереве

null@example.com (alexii) — Thu, 10 Jul 2014 10:43:32 +0000

А проверять наличие уже существующей папки «App» перед переименованием ?

Почему не просто «Folder.Name = "App"»?

VBS: Рекурсивное переименовывание папок в дереве

null@example.com (Евген) — Thu, 10 Jul 2014 10:37:46 +0000

Вообщем знакомый один просил сильно написать ему скриптец, который в древовидной файловой структуре искал бы все папки с именем "Application" и переименовывал бы их в "App" вот собственно и всё, что делает этот скрипт.
Может быть кому понравится или пригодится, буду рад )))

On Error Resume Next                                                                                  ' на случай если прав на папку не хватит
  Set fso = CreateObject("Scripting.FileSystemObject")

Set startfolder=fso.GetFolder("c:\util")                                                              ' путь к диску или стартовой папке

ShowSubFolders(startfolder)

Sub ShowSubFolders(Folder)
    For Each Subfolder In Folder.SubFolders
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set objFolder = fso.GetFolder(Subfolder.Path)
      If Subfolder.Name="Application" Then                                                        ' Искомое имя папки
          fso.MoveFolder Subfolder.Path, fso.GetFolder(Subfolder.Path).ParentFolder & "\App"  ' Конечное имя папки
      End If
        ShowSubFolders Subfolder
    Next
End Sub