Чистим папку в ОС Виста

[valerij]

Вот этот файл.

[EducatedFool]

Найди в коде такой фрагмент:

For Each fil In curfold.Files
            Select Case True
                Case fil.Name Like "*.exe*"    ' не удаляем файлы, у которых имя соответствует этой маске
                Case fil.Name Like "*.xla*"    ' не удаляем файлы, у которых имя соответствует этой маске
                Case fil.Name Like "*.txt*"    ' не удаляем файлы, у которых имя соответствует этой маске
                Case Else: fil.Delete True    ' а все остальные удаляем
            End Select
        Next

и замени его на что-то вроде этого:

    ' сначала считываем текстовый файл в переменную txt
    FilenameTXT = "C:\Documents and Settings\temporary_download\WinSXS.txt"
    Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.OpenTextFile(FilenameTXT, 1, True): txt = ts.ReadAll: ts.Close

    For Each fil In curfold.Files
        
        ' получаем имя файла без расширения
        If InStrRev(fil.Name, ".") Then
            ИмяФайлаБезРасширения = Left(fil.Name, InStrRev(fil.Name, ".") - 1)
        Else
            ИмяФайлаБезРасширения = fil.Name
        End If

        Select Case True

                ' если имя файла содержится в нашем списке исключений
            Case txt Like "*" & ИмяФайлаБезРасширения & "*"    ' не трогаем такие файлы

            Case fil.Name Like "*.exe*"    ' не удаляем файлы, у которых имя соответствует этой маске
            Case fil.Name Like "*.xla*"    ' не удаляем файлы, у которых имя соответствует этой маске
            Case fil.Name Like "*.txt*"    ' не удаляем файлы, у которых имя соответствует этой маске

            Case Else: fil.Delete True    ' а все остальные удаляем
        End Select
    Next

[valerij]

Сообщение от EducatedFool

Найди в коде..

ОК!
Спа-си-бо, ночью попробую

(\__/)
(='.'=)
E[:]|||[:]З
(")_(")

[valerij]

Игорь, попробовал, чета не ТАК...
В C:\Temp ложу WinSXS.txt, в файле Delete WinSXS.xls переписываю путь:

FilenameTXT = "C:\Temp\WinSXS.txt"

Запускаю F1, по идее с моей папкой(winsxs) ничего не должно случится, т. к. все имена взяты(кстати твоей программкой, Просмотр содержимого папки.xls) от туда, но папку чистит, конкретно с 319 мб до 25 мб, естественно после перезагрузки, смерть!

Игорь посмотри еще разок, что там не так.

Понимаешь, через прогу vLite, все корректно, но не будешь же, все время ее ставить + INSTALLATION KIT(800 мб)......

А, Игорь!
у тебя
' получаем имя файла без расширения
Надо папки удалять, а не файлы, а то, что в текстовом это файлы, наверное прогу Просмотр содержимого папки.xls, нужно переделать под имена папок??

[clevergod]

Сообщение от valerij

Игорь, я все же довел, наше с тобой дело до лог. конца!!
Папка winsxs, теперь, весит 330 мб, все работает, летает, ни каких глюков нет, время загрузки висты, 8 сек(без драйвера звука, с драйвером 18 сек) даже экран приветствия не успевает отобразится, значок Висты, музон и сразу рабочий стол, время перезагрузки и выключения 5 сек, все дрова + проги, С = 5,3 гб, см. скрин.

Уважаемый валерий, а не мог бы ты выложить рабочий хлс твоего "чудо - творения"

[Vol666]

Эх вы, в этой папке хранятся ярлыки на драйвера и прочие штучки винды, если её удалить это может вызвать торможение. А по поводу размера эта баг, на самом деле размер этой папки не более 1-2мб.

[boris_33]

не могли ли, уважаемые, все-таки опубликовать конечный результат?

[valerij]

Сообщение от Vol666

хранятся ярлыки на драйвера и прочие штучки винды, если её удалить это может вызвать торможение. А по поводу размера эта баг, на самом деле размер этой папки не более 1-2мб.

А ты возьми и скопируй эту папку и отнеси ее на др. ПК и посмотри вес, 12 гб ярлыки весят? Или сожми ее, если знаешь как и ты увидишь результат, а еще лучше:
подмени файл
C:\Windows\winsxs\x86_microsoft-windows-s..l-wallpaper-windows_31bf3856ad364e35_6.1.7600.1 6385_none_dae87c5811c55450\img0.jpg
любым другим, но с таким же именем (именно заменой из под другой оси), и в папке C:\Windows\Web\Wallpaper\Windows\im g0.jpg
ты увидишь этот файл, т.е. ссылка именно в этой папке, а если подменить файл тут, то в папке winsxs останется старый файл, вот и подумай, где файл, а где на него ссылка.
Для информации: на самом деле вся система находится полностью в папке winsxs, а то что видно в обычных папках Windows всего лишь ссылки к файлам в этой папке.

не могли ли, уважаемые, все-таки опубликовать конечный результат?

Конечно, W7, а если все -таки к висте то vLite, она с этой папкой, делает все супер, ни чего не надо изобретать.
А если хочешь знать, что и как загляни к нам на огонек, это Здесь

[Pavel55]

Про папку WinSxS

Я склонен верить тому, что написано в этой статье
http://blogs.msdn.com/e7ru/archive/2...4/9136456.aspx

а там написано, что:
"... каждый файл в папке WinSxS является «жесткой ссылкой» (hard link) на физически существующий файл, то есть все файлы находятся вне этой папки."

"...Реальный объем этой папки зависит от конкретного компьютера, но в среднем – около 400Мб. Немало, но принимая во внимание те преимущества, которые дает наличие этой папки, то это вполне разумное значение."

[valerij]

Сообщение от Pavel55

Я склонен верить тому, что написано в этой статье

Pavel55
Да проведи выше указанный эксперимент и верь своим глазам, а не статьям, этих статей море и все разные!