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

В чем проблема?

Обработка идет на один уровень подкаталогов. А как сделать чтоб работала на все уровни вложенности?