Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Сайт

Страница: 1 |

 

  Вопрос: Уничтожение файла - неоптимально Добавлено: 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-сайт: univercal-s.narod.ru
 Профиль | | #3
Добавлено: 30.07.03 09:13

http://www.vbnet.ru/faq/showtopic.asp?id=416

Удаленные файлы могут быть восстановлены через undelete, уничтоженные же этим методом как минимум восстанавливаются неверно, как максимум - вообще не подлежат восстановке.

Ответить

Номер ответа: 4
Автор ответа:
 Иван



Администратор

ICQ: 147688925 

Вопросов: 24
Ответов: 708
 Web-сайт: www.vbnet.ru
 Профиль | | #4
Добавлено: 03.08.03 21:35
Для Alex. Уничтожение файла  и его удаление - разные вещи.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам