[keks75]

вот нашел вторую часть скрипта переименование в папках, но как объединить не могу разобраться.

PHP код:

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 "ВСЕ!"