• Home
 · 
• Miscellaneous
 · 
• Delete a File Unrecoverable(Safe)

Delete a File Unrecoverable(Safe)

This will create a function that you can.
That function will delete your file safely, but first its contents will be overwriten by DOTS(.)
Give it a try(I checked this with EasyRecovery Professional Edition: I couldn't recover my testfile :-) ---- Soon I'll release my StuffX1 program containing a huge collection of my homemade handy subs and functions :-)

Inputs
file= A file

API Declarations
'none

Rate Delete a File Unrecoverable(Safe)

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Option Explicit
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long

Public Function FastDelete(IOFilePath As String) As Long
'-----------------------------------
'-  FastDelete(IOFilePath)
'-  IOFilePath is the location of a file
'-  that you want to delete.
'-
'- It will delete that file real fast
'-
'-  By T-Virus Creations
'- http://www.tvirusonline.be
'- email: [email protected]
'-
'-----------------------------------
On Error Resume Next
Open IOFilePath For Output As #1 ' Open File
'Automatic Delete Of Content
Close #1 ' Close File
DeleteFile IOFilePath
FastDelete = 0
End Function
Public Function GetFileSize(File As String) As Long
'-----------------------------------
'-  GetFileSize(File)
'-  File is the location of a file.
'-
'- It will return the size of the file
'-   size can be a little wrong :(
'-
'-  By T-Virus Creations
'- http://www.tvirusonline.be
'- email: [email protected]
'-
'-----------------------------------
Dim out As String
Dim t As String
Open File For Input As #1 ' Open File
While EOF(1) = False
Input #1, t
If out = "" Then
out = t
GoTo 10
End If
out = out + t
10
Wend
Close #1 ' Close File
GetFileSize = Len(out) ' + 2
End Function

Public Sub SaveBogus(File As String, Blocks As Long, BlockSize As Long, UseDoEvents As Boolean)
'-----------------------------------
'-  SaveBogus(File , Blocks, BlockSize, UseDoEvents)
'-  File is the location of a file.
'-  Blocks= The amount of block
'-  BlockSize= The size in bytes of one block
'-  UseDoEvents= Use this when working with big files, else could freeze
'-
'-  Saves a string full with dots
'-
'-  By T-Virus Creations
'- http://www.tvirusonline.be
'- email: [email protected]
'-
'-----------------------------------
Open File For Output As #1
Dim SStr As String
Dim i As Long
For i = 1 To Blocks ' - 2
SStr = SStr + String(BlockSize, ".") 'Chr(Rnd(10) * 100))
If UseDoEvents = True Then
DoEvents
End If
Next
Print #1, SStr
Close #1
End Sub
Public Sub SafeDelete(File As String)
'-----------------------------------
'-  SafeDelete(File)
'-  File is the location of a file.
'-
'- It will delete File fast and safe.
'-
'-  By T-Virus Creations
'- http://www.tvirusonline.be
'- email: [email protected]
'-
'-----------------------------------
On Error Resume Next
SaveBogus File, GetFileSize(File), 1, True
Open File For Output As #1 ' Open File
'Automatic Delete Of Content
Close #1 ' Close File
DeleteFile File
End Sub