Как удалить папку с файлами без их восстановления?

[Alexxx]

Здравствуйте!
Подскажите, пожалуйста, как можно удалить папку с файлами на жестком диске средствами VB без возможности последующего их восстановления?
Спасибо.

[Rainbow]

Используй FSO (по этому слову на форуме найдешь кучу тем)

Подключи Microsoft Scripting Runtime

Код: Выделить всё

Dim fso As New FileSystemObject
fso.DeleteFolder "c:\ddd"

Если укажешь вторым параметром в DeleteFolder True, то удалит даже Read-Only.

[tyomitch]

Ой.
Наверное, очень-очень сложно...

Rainbow, я думаю, Alexxx не про "удалить мимо корзины", а про "удалить и затереть" - "просто удалённое" на FAT32 диске восстанавливается довольно легко...

[Sedge]

Открыть каждый файл на запись, заполнить его, допустим, 0, сохранить, а затем убить вместе с папкой. По идее должно сработать.

[Rainbow]

Rainbow, я думаю, Alexxx не про "удалить мимо корзины", а про "удалить и затереть" - "просто удалённое" на FAT32 диске воcстанавливается довольно легко...

Ой, а зачем такое варварство?

[tyomitch]

Rainbow, я думаю, Alexxx не про "удалить мимо корзины", а про "удалить и затереть" - "просто удалённое" на FAT32 диске воcстанавливается довольно легко...

Ой, а зачем такое варварство?

Номера ворованных кредиток прятать от КГБ

[RayShade]

Зачем изобретать велосипед? есть куча тулзин типа того же WipeInfo. И вперед с песнями.

[Ruslan Demidow]

Если использовать VBscript,

Код: Выделить всё

Private FSO as Object
Option Explicit

Set FSO=CreateObject("Scripting.FileSystemObject")
FSO.DeleteFolder "C:\MyFolder",True


то после удаления в корзине (даже защищённой Нортоном) данную папочку не найти. И через меню проводника "Правка"-"Отменить" тоже не восстанавливается. Ну а остальное, если нужно вообще даже на низком уровне, то как сказал Тёмыч.

[tyomitch]

Зачем изобретать велосипед? есть куча тулзин типа того же WipeInfo. И вперед с песнями.

Alexxx-то надо на VB!

[alibek]

Open ... For Binary
Put ...
Close
Kill

[Alexxx]

Так все-таки, есть возможность программного удаления папки с файлами БЕЗ возможности восстановления? Дважды записывать файл с другим содержанием - это выверт довольно хитрый, но не экономный. Кроме того, речь идет об удалении целой папки, в которой находится масса файлов.
И попутный вопрос: у меня почему-то команда fso.DeleteFolder "е:\namefolder" отказывается удалять папку. Что - сначала надо удалить все файлы этой папки, и только потом саму папку?

[Ruslan Demidow]

Так все-таки, есть возможность программного удаления папки с файлами БЕЗ возможности восстановления? Дважды записывать файл с другим содержанием - это выверт довольно хитрый, но не экономный. Кроме того, речь идет об удалении целой папки, в которой находится масса файлов.
И попутный вопрос: у меня почему-то команда fso.DeleteFolder "е:\namefolder" отказывается удалять папку. Что - сначала надо удалить все файлы этой папки, и только потом саму папку?

fso.DeleteFolder "е:\namefolder", True - удалит.

[Sedge]

Так все-таки, есть возможность программного удаления папки с файлами БЕЗ возможности восстановления? Дважды записывать файл с другим содержанием - это выверт довольно хитрый, но не экономный. Кроме того, речь идет об удалении целой папки, в которой находится масса файлов.

имхо - так все программы для безвозвратного удаления данных делают, так что велосипед тут не изобрести...

[Alexxx]

Спасибо всем за советы, но чувство какой-то незавершенности поставленной задачи осталось...

[Prickly]

Используй вот этот код

Код: Выделить всё

Private Declare Function FlushFileBuffers Lib "kernel32" (ByVal hfile As Long) As Long

Private Sub ShredFile(sFileName As String)
  On Error GoTo ErrSub
  Dim i As Long, x As Long
   
  Open sFileName For Binary As #1
    For x = 1 To 1000
      For i = 1 To LOF(1)
        Put #1, i, RandomChar(1)
        FlushFileBuffers (1)
      Next i
    Next x
  Close #1
  Kill sFileName
ErrSub:
  If Err.Number = 0 Then
    If Err.Number = 9 Then
      Resume Next
      If Err.Number = 55 Then
        Close #1
      Else
        MsgBox (Err.Number & vbCrLf & Err.Description), vbCritical + vbOKOnly, "Error"
      End If
    End If
  End If
End Sub

Private Function RandomChar(Length As Long) As String
  Dim Position As Long, StringLen As Long
  Dim rndString As String, Chars As String

  StringLen = 0
  Randomize
  Do Until StringLen = Length
    Position = Int((Len(Chars) * Rnd) + 1)
    rndString = rndString & Mid$(Chars, Position, 1)
    StringLen = StringLen + 1
  Loop
  RandomChar = rndString
End Function


И файл восстановить будет невозможно.

[Samovar]

Если открыть файл Binary и потом писать туда, это гарантирует что новые записи стерут старые? Или NTFS (для большей надежности) просто откроет новый сектор запишет все новое туда и потом освободит старый сектор.

А вообще, в Win2000,XP и т.д. можно включить режим Secure Delete. Это не подойдет?

[Leon_]

А вообще, в Win2000,XP и т.д. можно включить режим Secure Delete. Это не подойдет?

Нельзя ли поподробнее об этом?