actually, encryption wouldn't help. cause i need to be able to use these files without decrypting them all the time.


but anyways, as for overwriting the files, when you say writing 0s to the end of the file, do you mean like, opening the file, getting the length, then writing that many 0s to it and closing it?


like this:

On Error Resume Next
Dim iFileNumber As Integer
Dim i As Integer
iFileNumber = FreeFile
Open "C:\test.txt" For Output As #iFileNumber
Print #iFileNumber, String$(FileLen("C:\test.txt"), Chr$(0));
Close #iFileNumber

or is that totally wrong?