Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программа удаляющая файлы / 7 сообщений из 7, страница 1 из 1
22.09.2009, 14:51
    #36210391
belka77
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программа удаляющая файлы
Доброго всем времени суток. Сто лет уже не писал ничего на родном и старом бейсике. Возникла необходимость, подскажите пожалуйста код, может кто уже делал такое.
Дело в том, что у нас интернет клуб, более 40ка компьюетров. Всякий раз когда приходят пользователи, они оставляют в компьютерах "мусор". Начиная с сохраненных паролей в "в контакте" и "однокласники", заканчивая "порно-картинками". А потом приходят сумасшедшие родители на разборки, по поводу того, что их чада смотрели порнокартинки в наших компьютерах.
После задушевных бесед с "отделом Р", мы стали вручную с каждого компа в конце дня удалять информацию. Это занимает очень много времени
Вот и возникла идея: нельзя ли написать прогу, которая при запуске, будет:
1) Находить все файлы с расширением jpb, bmp, gif, xls, doc и убивать их без запроса на подверждение(ну кроме католога windows)
2) Убивать все сохраненные ссылки, а также сохраненные пароли, и чистить cooke.
Заранее благодарен.
...
Рейтинг: 0 / 0
22.09.2009, 15:12
    #36210473
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программа удаляющая файлы
Может поможет http://forum.sources.ru/index.php?showtopic=277365
...
Рейтинг: 0 / 0
22.09.2009, 15:19
    #36210505
belka77
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программа удаляющая файлы
Да мне без примудростей надо.
Простой exe-шник
"-Ищи файлы с расширением jpg
Убей найденные файлы, без возвратно, без подверждения и запросов- jpg
- Ищи файлы с расширением doc
Убей найденные файлы, без возвратно, без подверждения и запросов- doc
ну и т.д
"
Ну и по возможности почистить временные файлы, cooke и прочее, но это уже второстепенная задача
...
Рейтинг: 0 / 0
22.09.2009, 15:30
    #36210550
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программа удаляющая файлы
авторДа мне без примудростей надо. Там как раз без них родимых. :) Раз поставил и забыл. Всегда чистая винда. Как раз Вы похоже не ищите легких путей... :)
...
Рейтинг: 0 / 0
22.09.2009, 15:40
    #36210586
Hugo121
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программа удаляющая файлы
Если надо выборочно чистить определённые каталоги (скрипт vbs):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
'Удаление файлов XLS если они старше 10 дней 
Dim FSO, WSH
Dim TheFolder, TheFiles, AFile
Set WSH = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSO.GetFolder("C:\Musor\") 'Каталог, откуда удалять
Set TheFiles = TheFolder.Files
For Each AFile In TheFiles
    If UCase(FSO.GetExtensionName(AFile.Path)) = "XLS" and _ 
        DateDiff("d", AFile.DateLastModified, Date) >  10   Then
        AFile.Delete
    End If
Next
У меня такое в автозагрузке, временные бекапы подчищает...
...
Рейтинг: 0 / 0
22.09.2009, 15:42
    #36210597
belka77
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программа удаляющая файлы
А если пользователи посохраняли свое добро кто-куда? Можно ли организовать поиск и удаление без запроса?
...
Рейтинг: 0 / 0
22.09.2009, 16:40
    #36210883
AndreyArtemev
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программа удаляющая файлы
Закажите прогу которая по вашей сетке в конце дня бы чистила ваши компы.

Имела бы настройки
1. список компов
2. список папок которые чистить (общие настройки для всех компов и индивидуальные для конкретной машины)
3. список что чистить (также общие настройки и конкретно для папок)
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программа удаляющая файлы / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]