1 (изменено: griha09, 2012-02-04 03:54:09)

Тема: 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

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

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

2

Re: VBS: переименование файлов в подпапках по схеме ИмяПодпапки+ИмяФайла

Никому не удалось найти ошибку? У меня та же проблема.