Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei unwiederbringlich löschen

Datei unwiederbringlich löschen
30.12.2002 19:20:38
thomas
Hallo,
kann mir jemand helfen hat jemand solch eine Code?
Also, ist es mittels VBA möglich einen Code einzugeben,mit dem eine Datei im aktivem Zustand nach erreichen eines bestimmten Datums unwiederbringlich gelöscht wird.Löschen aus dem RAM, Quellverzeichnis und Papierkorb??
Ganz toll wäre es wenn vor dem Löschen noch eine MsgBox mit einem Hinweis aufgeht.
Besten Dank für Hilfe, dann Prost - und einen guten Rutsch
thomas

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Datei unwiederbringlich löschen
30.12.2002 19:22:42
L.Vira
Schau dir mal Kill an.
Sicher ist nichts, schon gar nicht in Excel!
Re: Datei unwiederbringlich löschen
30.12.2002 19:24:21
Georg_zi
Hallo Thomas

sei mit dem code Vorsichtig. Die Datei ist unwiederruflich weg.


	

Sub zMloesche()

	'   erstellt von Jürgen Wenzel

	ActiveWorkbook.ChangeFileAccess xlReadOnly

	Kill ActiveWorkbook.FullName

	ThisWorkbook.Close False

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein


Gruß Georg

Anzeige
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige