Dateien zu l�schen ist kein Problem,
    was aber, wenn sie unwiderruflich gel�scht werden sollen ?
    Es gibt schlie�lich genug Tools, die gel�schte Dateien retten kann.

    L�schen Sie also wichtige Dateien so,
    dass sie auch nach Rettungsversuchen nicht mehr zu gebrauchen sind.
    Eine L�sung bietet sich hier an, die Datei mit beliebigen Zeichen zu f�llen,
    und erst dann zu l�schen:

ERFORDERLICHE OBJEKTE

   1 Commandbutton (Command1)

 FORM-CODE

   Private Type Datensatz
      Crypt As String * 1
   End Type

   Sub Kill_File(Dateiname)
      Dim Zeichen As Datensatz
      'zu �berschreibendes Zeichen
      Zeichen.Crypt = "X"
      'Dateiattribut setzen
      SetAttr Dateiname, vbArchive
      'Bin�rer Dateizugriff
      Open Dateiname For Binary As #1
      'Schleife, Gr��e der Datei
      For x = 1 To FileLen(Dateiname)
         'Zeichen schreiben
         Put #1, x, Zeichen
      Next x
      'Datei schlie�en
      Close 1
      'Datei l�schen
      Kill (Dateiname)
   End Sub

   Private Sub Command1_Click()
      'zun�chst eine Datei erstellen
      Dateiname = "C:\TEMP\DATEI.TXT"
      Open Dateiname For Output As #1
      Print #1, "TEST"
      Close #1
      'Datei l�schen
      Call Kill_File(Dateiname)
   End Sub