Verfasst: 11.08.2008 20:28
jo, so gehts auch, damit is die datei ueberschrieben
zwar nicht komplett geloescht..braucht man dann aber auch nich mehr
zwar nicht komplett geloescht..braucht man dann aber auch nich mehr
Die Einzelheiten hängen ja auch vom verwendeten Betriebssystem ab. Deshalb emfehle ich wenn's wirklich wichtig ist für solche Dinge Tools von Leuten, von denen bekannt ist dass sie sich damit gut auskennen, für Windows z.B. http://technet.microsoft.com/en-us/sysi ... 97443.aspxts-soft hat geschrieben:Wenn ich die Datei öffne und überschreibe, überschreibe ich nur den Buffer,
beim schliessen wird dann aber ganz woanders geschrieben, als dort wo die
Datei beim öffnen war.
Das funzt bei mir garnichLittle John hat geschrieben:Deshalb emfehle ich wenn's wirklich wichtig ist für solche Dinge Tools von Leuten, von denen bekannt ist dass sie sich damit gut auskennen, für Windows z.B. http://technet.microsoft.com/en-us/sysi ... 97443.aspx
DrNo hat geschrieben:Das funzt bei mir garnichLittle John hat geschrieben:Deshalb emfehle ich wenn's wirklich wichtig ist für solche Dinge Tools von Leuten, von denen bekannt ist dass sie sich damit gut auskennen, für Windows z.B. http://technet.microsoft.com/en-us/sysi ... 97443.aspx
"Sysinternals" war halt eine Quelle, die ich gerade so aus dem Kopf wusste. Es gibt andere gute Freeware für andere Windows-Versionen.Sysinternals hat geschrieben:SDelete works on Windows 95, 98, NT 4.0 and Win2K.
Wie KG schon schrieb: Erst die Länge ermitteln, und dann genau so viele Bytes schreiben. Aber damit ist die Datei nicht wirklich sicher gelöscht -- was ja Deine Ursprungsfrage war.DrNo hat geschrieben:Nochmal zurück zu meiner Frage...falls ihr die durch die vielen posts übersehn habt.
Mir geht es im Moment nur darum wie ich die Schleife stoppe wenn die Datei voll ist...also damit meine ich ihre originalgröße wieder hat.
Code: Alles auswählen
file$ = OpenFileRequester("Datei auswählen...","","Alle Dateien (*.*)",0)
If file$
If ReadFile(0, file$)
length = Lof(0)
*MemoryID = AllocateMemory(length)
If *MemoryID
bytes = ReadData(0, *MemoryID, length) ;
EndIf
CloseFile(0)
If OpenFile(0, file$)
Repeat
WriteWord(0, Random($FFFF))
a + 2
Until a = bytes
CloseFile(0)
MessageRequester("Info", "Datei erfolgreich überschrieben!")
EndIf
EndIf
EndIf