Evgen>> А простой перезаписью других файлов на месте удаленных, разве не убиваются все прежние данные? U235> Стандартными средствами ОС ты такую перезапись не сделаешь. Нужна утилита которая забьет прежние данные на всем диске или именно на том месте, где они находились. Тупо записать какой то файл, пока пространство диска не кончится. Чем не специальная утилита.
Можешь попробовать
Private Sub LoadFakeData() Dim d As New DriveInfo("E") Dim f As New FileInfo("D:\data\WideWorldImporters-Full.bak") Dim rnd As New Random() Process.Start("format.com", "E:") Do While d.TotalFreeSpace > 0 f.CopyTo(d.Name & "f" & rnd.Next.ToString) Loop End Sub