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