Автоматизация сортировки и удаления каталогов

[ultra_fs]

Microsoft выпускает каждый месяц диск с обновлениями безопасности для всех ОС и почти всех языков, диск имеет структуру : в корне каталоги с цифрами -> каталоги с названиям ОС -> каталоги с битностью системы -> каталоги с сортировкой обновлений по языкам -> файлы обновлений. Хотелось бы увидеть скрипт, который скопирует все русские обновления для одной ОС определенной битности в один, каталог, для другой ОС в другой каталог ...

[amel27]

ultra_fs, в такой вольной формулировке не имея диска никто не сможет помочь

[vitaliyboch]

Навервно запрашивался такой скрипт:


set oFSO = CreateObject("Scripting.Filesystemobject")

Call ProcessFolder("F:\")

Sub ProcessFolder(sFolderPath)
set oFolder = oFSO.GetFolder(sFolderPath)
set colFiles = oFolder.Files
for each oFile in colFiles
If InStr(LCase(oFile.Path),"-ru")>0 Then
If InStr(LCase(oFile.Path),"-x86")>0 Then
Call oFSO.CopyFile(oFile.Path,"C:\RU_x86\" & oFile.Name, True)
ElseIf InStr(LCase(oFile.Path),"-x64")>0 Then
Call oFSO.CopyFile(oFile.Path,"C:\RU_x64\" & oFile.Name, True)
End if
ElseIf InStr(LCase(oFile.Path),"-en")>0 Then
If InStr(LCase(oFile.Path),"-x86")>0 Then
Call oFSO.CopyFile(oFile.Path,"C:\EN_x86\" & oFile.Name, True)
ElseIf InStr(LCase(oFile.Path),"-x64")>0 Then
Call oFSO.CopyFile(oFile.Path,"C:\EN_x64\" & oFile.Name, True)
End if
ElseIf InStr(LCase(oFile.Path),"-fr")>0 Then
If InStr(LCase(oFile.Path),"-x86")>0 Then
Call oFSO.CopyFile(oFile.Path,"C:\FR_x86\" & oFile.Name, True)
ElseIf InStr(LCase(oFile.Path),"-x64")>0 Then
Call oFSO.CopyFile(oFile.Path,"C:\FR_x64\" & oFile.Name, True)
End if
End If
next
set colSubFolders = oFolder.SubFolders
for each oSubFolder in colSubFolders
ProcessFolder(oSubFolder.Path)
next
end sub


только добавьте условия по языкам и платформам и верную структуру папок, куда копировать файлы.