| Вопрос: Уничтожение файла - неоптимально | Добавлено: 29.07.03 11:10 |
Автор вопроса:  univercal | Web-сайт: univercal-s.narod.ru | ICQ: 173084484 |
|
Всем привет! В библиотеке кодов недавно появился пример уничтожения файла. Хочу заметить, что этот пример очень неоптимален. В качестве доказательства - мои измерения. Для библиотечного кода: 5.32 Мб - 4155 мс 1.64 Мб - 940 мс 345 кБ - 383 мс Для моего кода, более оптимального: 5.32 мБ - 3160 мс (!) - здесь выигрыш в секунду, т.е. почти 200 мс\мБ! 1.64 мБ - 832 мс - выигрыш по скорости примерно 65 мс\мБ 345 кБ - 338 мс - выигрыш 45 мс, по скорости 130 мс\мБ Во второй попытке 208. По-моему, второй результат - какая-то ошибка или случайность... :) И собственно использованный код: Public Sub Destroy(fileName) Dim i As Long Dim hFile As Long Dim Destroyer As String
Destroyer = String$(512, Chr$(255)) hFile = FreeFile
Open fileName For Binary As #hFile
For i = 1 To LOF(hFile) + 512 Step 512 Put #hFile, i, Destroyer Next i
Close #hFile
Kill fileName
End Sub |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #1 | Добавлено: 30.07.03 00:32 |
| Что то я не врубился, зачем такие жестокие функции уничтожения файлов? Я поэксперементировал с DeleteFile и удалил 400 метровый файл меньше чем за 1 с... | ||
|
Номер ответа: 2 Автор ответа:  AASoftВопросов: 86 Ответов: 920 |
Профиль | | #2 | Добавлено: 30.07.03 03:50 |
|
hi |
||
|
Номер ответа: 3 Автор ответа:  univercal ICQ: 173084484 Вопросов: 5 Ответов: 76 |
Web-сайт: Профиль | | #3 | Добавлено: 30.07.03 09:13 |
|
http://www.vbnet.ru/faq/showtopic.asp?id=416 Удаленные файлы могут быть восстановлены через undelete, уничтоженные же этим методом как минимум восстанавливаются неверно, как максимум - вообще не подлежат восстановке. |
||
|
Номер ответа: 4 Автор ответа:  ИванАдминистратор ICQ: 147688925 Вопросов: 24 Ответов: 708 |
Web-сайт: Профиль | | #4 | Добавлено: 03.08.03 21:35 |
Для Alex. Уничтожение файла  и его удаление - разные вещи.
|
||
Страница: 1 |