Permanently deleting files

[RichardMGreen]

Hi all

I've got some VBA that imports csv files into Access tables and it works very well.
As each file is imported, the CSV is deleted (i.e. sent to the recycle bin) using the Kill command because of what the file contains.

Is there any way of permanently deleting the file or emptying the recycle bin at the end of the routine so the files cannot be restored?

 

[jackd]

You might look at this one, SDelete, but I don't know if there's a newer version.
http://technet.microsoft.com/en-us/sysinternals/bb897443

 

[SydneyGeek]

The FileSystemObject could be of use.

Set a reference to the Microsoft Scripting Runtime.

Sample:

Sub DeleteAFile()
    Dim FSO As Scripting.FileSystemObject
 
    FSO.DeleteFile "*.txt", True
End Sub

note: you can use FSO.DeleteFile or FSO.DeleteFolder
...or < filename >.Delete or < directory name >.Delete

The True parameter lets you delete read-only files / directories. Set to False otherwise.

Denis

 

[RichardMGreen]

Thanks guys, I'll see what I can do with all this lot.