|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
28.11.2008, 18:09 | #11 | ||
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Цитата:
Может, тогда проще было макросом не удалять их, а перемещать в эту папку... Ну да ладно, теперь уже поздно. |
||
28.11.2008, 18:33 | #12 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
|
28.11.2008, 18:47 | #13 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Код:
Или, если файлы удалять не требуется, можно упростить код: Код:
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 28.11.2008 в 18:52. |
|
28.11.2008, 19:34 | #14 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
EducatedFool!
И последний штрих! Перед генеральным тестированием(переставлю образ), можно сделать, что бы макрос подсчитал: test()(последний) - сколько папок было до удаления и сколько шт. удалено Последний раз редактировалось valerij; 28.11.2008 в 22:32. |
30.11.2008, 14:52 | #15 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
EducatedFool!
Может и не надо подсчитывать - сколько папок было до удаления и сколько шт. удалено, это в принципе, мона глянуть и в свойствах, а вот как то контроль выполнения, желателен, может время выполнения???? Кстати, больше в C:\Temp, папка не появлялась, то видимо в процессе настройки. И еще, под одну клавишу F1, запуск.... В аттаче З. Ы. Раз 10 переставлял разные образы висты(Хом, Ультим....32/64), все супер работает, резко поднимается скорость, несмотря на антивирусник Последний раз редактировалось valerij; 30.11.2008 в 16:15. |
30.11.2008, 16:40 | #16 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Забыл убрать кое-что. В функции Delete_All_Files замени строку For i = 1 To 300: DoEvents: Next на строку DoEvents (или вообще убери её. Это была пауза для визуального контроля отображения имён файлов) Ну, и в строке FolderPath = "C:\Windows\temp" замени "C:\Windows\temp" на '"C:\Windows\winsxs" Кстати, за одним почистил себе папку Temp... Хоть какая-то польза (раньше делал это вручную)
__Полезные надстройки для Excel. Парсинг сайтов и файлов.
Макросы любой сложности на заказ. Мониторинг цен конкурентов Последний раз редактировалось EducatedFool; 30.11.2008 в 16:46. |
|
30.11.2008, 17:17 | #17 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
|
30.11.2008, 17:20 | #18 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Случайно попал ненужный для этого файла кусок кода.
Не обращай внимания - там есть неиспользуемые функции. запустил бы этот код, да увидел. функция CropPath из полного пути вырезает только имя файла. Запускай только макрос test. А лучше и его не запускай |
30.11.2008, 17:30 | #19 |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
|
30.11.2008, 17:43 | #20 | |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
(максимальное значение которой 2,147,483,647) Попробуй заменить строку Dim pi As ProgressIndicator, StartSize As Long, CurrentSize As Long на строку Dim pi As ProgressIndicator, StartSize As Single, CurrentSize As Single Хотя можно было бы и по-другому: заменить StartSize = curfold.Size и s = fil.Size на StartSize = curfold.Size / 100 и s = fil.Size / 100 Но ты ведь умудришься найти папку размером более 200 Гб Поэтому просто замени Long на Single |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
меню в виста | fedoroff | Windows | 1 | 08.12.2008 05:45 |
папки с xp на виста и вис верса | aska2013 | Операционные системы общие вопросы | 4 | 10.11.2008 11:37 |
виста | sergei64_89 | Win Api | 0 | 28.04.2008 15:31 |
Виста не берёт родные дрова | Fainder | Свободное общение | 7 | 09.09.2007 21:52 |
определить папку | мандарин | Общие вопросы Delphi | 5 | 13.05.2007 17:20 |