Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Sicher löschen
Autor: Benni
Datum: 16.02.03 16:24
Sorry hatte deine Frage falsch verstanden.. Also hier die Funktion (aus deinem Link): Public Function FileKill(ByVal sFilename As String) _ As Boolean Dim F As Integer Dim sInhalt As String Dim FileSize As Long Dim ReadSize As Long Dim Size As Long Const BlockSize = 4096 ' Fehlerbehandlung aktivieren On Local Error Goto FileKill_Error ' Datei binär öffnen F = FreeFile Open sFilename For Binary As #F ' Dateigröße FileSize = Lof(F) ' Datei-Inhalt blockweise mit ' Leerzeichen überschreiben While ReadSize < FileSize If ReadSize + BlockSize > FileSize Then Size = FileSize - ReadSize Else Size = BlockSize End If ' Leerzeichen schreiben sInhalt = Space$(Size) Put #F, , sInhalt ReadSize = ReadSize + Size Wend ' Datei schliessen Close #F ' Datei löschen Kill sFilename FileKill = True Exit Function FileKill_Error: If F > 0 Then Close #F FileKill = False End Function 'Hier dein Button Private Sub Command1_Click() dim strFilename as String strFilename="C:\Hier_Deine_Datei.TXT" if FileKill(strFilename) = True then msgbox "Datei sicher gelöscht !" Else msgbox "Fehler beim Löschen der Datei" End IF End Sub

Sicher löschen	201	Newbie	16.02.03 09:33
Re: Sicher löschen	305	Dieter	16.02.03 09:39
Re: Sicher löschen	125	Newbie	16.02.03 11:56
Re: Sicher löschen	299	Dieter	16.02.03 12:11
Re: Sicher löschen	120	Newbie	16.02.03 12:36
Re: Sicher löschen	127	Tom M.	16.02.03 12:40
Re: Sicher löschen	122	Newbie	16.02.03 13:46
Re: Sicher löschen	287	Benni	16.02.03 16:16
Re: Sicher löschen	289	Benni	16.02.03 16:24
Vielen Dank für eure Hilfe (oT)	114	Newbie	16.02.03 16:56

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen