| Вопрос: Определение и автоудаление файлов | Добавлено: 17.09.05 16:53 |
Автор вопроса:  «UL.eXe» | ICQ: 197.895.916.247 |
|
Есть определенная папка, за которой слидит пой проэкт.
Если в папке появляются новые файлы, программа автоматически их удаляет... Как мне определить, что в папке найдены новые файлы? Меня интересует сам код.. Очень благодарен за ваши будущие ответы!! ЗЫ Антивирус нашел в какой папке постоянно появляются и беследно копируются вирусы, а удалить их не может (не успевает).. Вот такая вот проблема. |
| Ответы | Всего ответов: 12 |
|
Номер ответа: 1 Автор ответа:  Morpheus Вопросов: 224 Ответов: 3777 |
Web-сайт: Профиль | | #1 | Добавлено: 17.09.05 16:59 |
Сначала составь список нужных файлов (которые удалать не надо) потом просто организуй поиск всех фалйов и удалай те, которые не в списке. Теперь о поиске. Можно использовать простой FileListBox и перебирая сравнивать. Kill- команда на удаление. Второй способ-организовать поиск с помощью API Find(First/Next)File. Если совсем нечего делать - разберись со вторым способом. также научишься удалять нафиг эти тупые нульсимволы в конце каждой строки (у меня процедура называлась CutShitOff  . если надо дам пример апи.
|
||
|
Номер ответа: 2 Автор ответа: sneРазработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445 |
Web-сайт: Профиль | | #2 | Добавлено: 17.09.05 17:28 |
| File Monitor тебе поможет, по-крайней мере ранние его сорцы... | ||
|
Номер ответа: 3 Автор ответа: «UL.eXe» ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #3 | Добавлено: 17.09.05 20:32 |
|
Kill- команда на удаление
Я не полный ламер )
если надо дам пример апи
А вот пример надо-бы, ... только меня интересует сама процедура поиска. Папка с вирусами - пуста! Тоесть они появляются и пропадают - можно считать что файлом там нет - теоретически .. Меня интересует код, который может определять, появились новые файлы или нет ? (появились изменения в папке..), помогите. |
||
|
Номер ответа: 4 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #4 | Добавлено: 17.09.05 23:09 |
|
Я не полный ламер
) да ты полный.... как бы не матом, череп неохото
в тему: Поставь обычный Filelist на форму, ему File1.Patch = App.Patch отобразит все файлы в твоей папке. Далее точно так же как с листом... С листом же работать умеешь? Или полный ламер?
For i% = 0 to File1.ListCount - 1 file$ = File1.List(i 
if File$ <> App.Exename then on error resume next kill app.path & "\" & file$ end if Next i% писал тут, не тестил. |
||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | | #5 | Добавлено: 17.09.05 23:10 |
|
а ну и, всё ж это в таймере, чтобы постояно удалять, прям как тебе надо
|
||
|
Номер ответа: 6 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #6 | Добавлено: 17.09.05 23:29 |
|
да ты полный.... как бы не матом, череп неохото
... |
||
|
Номер ответа: 7 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #7 | Добавлено: 18.09.05 15:24 |
| Ну если через WMI подойдет, то я уже где то тут приводил код. Кажется LOLу. | ||
|
Номер ответа: 8 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #8 | Добавлено: 18.09.05 16:15 |
| Если речь о вирях, то надо и порожденные процессы килять то же. | ||
|
Номер ответа: 9 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #9 | Добавлено: 18.09.05 17:53 |
|
а ну и, всё ж это в таймере, чтобы постояно удалять, прям как тебе надо Ну это совсем лишнее.
|
||
|
Номер ответа: 10 Автор ответа: AndreyMpICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #10 | Добавлено: 18.09.05 17:55 |
| Как те надо я даже за спасибо напишу. | ||
|
Номер ответа: 11 Автор ответа: «UL.eXe»ICQ: 197.895.916.247 Вопросов: 72 Ответов: 540 |
Профиль | | #11 | Добавлено: 18.09.05 23:32 |
|
Как те надо я даже за спасибо напишу
спасибо
win.support@mail.ru |
||
|
Номер ответа: 12 Автор ответа: LamerOnLineICQ: 334781088 Вопросов: 108 Ответов: 2822 |
Профиль | | #12 | Добавлено: 19.09.05 10:03 |
|
Если не оригинальничать - можно через FSO и таймер. Ставишь его примерно на полминуты, далее код
Option Explicit Dim FSO As New FileSystemObject Dim MyFolder As Folder Private Sub Form_Load() Set MyFolder = FSO.GetFolder("C:\Temp" 
End Sub Private Sub Timer1_Timer() Dim MyFile As File If MyFolder.Files.Count > 0 Then For Each MyFile In MyFolder.Files MyFile.Delete True Next MyFile End Sub |
||
Страница: 1 |