Тема: VBS: Рекурсивное переименовывание папок в дереве
Вообщем знакомый один просил сильно написать ему скриптец, который в древовидной файловой структуре искал бы все папки с именем "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Времени не хватает... :-(
?
