Тема: VBS: Переименование папок по маске
Здравствуйте, помогите пожалуйста решить задачу, есть несколько папок с именами 111, 222, 333, 444 их нужно переименовать, например, в папка1, папка2, папка3, папка4 но каждое новое имя должно соответствовать определенному старому имени, т.е. папка с именем "111" должна всегда переименовываться в "папка1", "222" в "папка2" и т.д Нужно как то задать соответствие старых и новых имен, а как это сделать ума не приложу. Сразу скажу, что познания в написании скриптов у меня небольшие, пока что смог написать только это:
set FSO = CreateObject("Scripting.FileSystemObject")
look = "d:\2\look\"
out = "d:\2\out\"
set lookDir = FSO.GetFolder(look)
set outDir = FSO.GetFolder(out)
for each subFolder in lookDir.subFolders
NewName = FSO.GetBaseName(subFolder.Name)
msgbox NewName
next
set FSO = Nothing
знаю что это ниочем, так что сильно не ругайте.