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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

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

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

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

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

Код:

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

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