Тема: VBS: переименование файлов в подпапках по схеме ИмяПодпапки+ИмяФайла
Вот сделал скрипт для переименования файлов в подпапках по схеме ИмяПодпапки+ИмяФайла
papka = "c:\temp\"
Dim FilePath
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(papka)
'просматриваем папку с файлами
For Each SubFolder In Folder.SubFolders
For Each File In SubFolder.Files
FilePath = FSO.BuildPath(Folder,SubFolder.Name)
FSO.MoveFile File, FilePath+"\"+SubFolder.Name+"_"+File.Name
Next
Next
Msgbox "ВСЕ!"
Вначале переименовывает нормально Mitsubishi-1_Eclipse.jpg, а через пару папок появляется такая х*рня Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_
Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_Opel-1_1.jpg
и вылетает ошибка:
Ошибка: Путь не найден
Код: 800А004С
Строка:10
В чем проблема?
Обработка идет на один уровень подкаталогов. А как сделать чтоб работала на все уровни вложенности?