Starte på begynnelsen av fil igjen

[Jaffe]

Driver å utvider SecureDelete litt, og har tenkt på implementere støtte for å "SecureDelete" flere ganger over en fil slik at det er heeelt sikkert at den ikke kan gjenopprettes. Dette gjør jeg slik nå:

 

for i = 1 to text1.text (antall ganger en skal overskrive)

for x = 1 to lof(1)

<slettehandlinger>

next x

next i

 

Men dette resulterer bare i at fila blir dobbelt så stor! Det jeg på en eller annen måte må gjøre, er å stille tilbake slik at den overskriver fra begynnelsen av fila igjen.

Endret 9. april 2005 av Johan123321

[aadnk]

Benytt Seek kommandoen til dette:

 

' Tilbakestill skrive- og leseposisjonen
Seek(1) = 1