Re: Datei unwiederbringlich löschen
30.12.2002 19:26:44
josef
hallo erstmal,
ich hab mal folgendes im internet gefunden, vielleicht nützt es dir als ansatz: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
gruß und guten rutsch
josef