HowTo delete from MS Access 2000 an XLS file.

[Gerrit.B]

I created a MS Access 2000 database, I import .xls files that I after importing want to delete.
Any Suggestion How?

 

[mdmilner]

Kill (pathname_to_file) works on any file type.

Mike

 

[Gerrit.B]

I hava a file (123456.xls on E:\Documenten\Gerrit\123456.xls)
Where can i find KILL.
Can this be done by a macro ?
Can you provide me with a sample.

 

[mdmilner]

It's a visual basic command that duplicates a DOS capability (delete).
You have to open up a Module and create a Subroutine/Function that does it.

This should be a thorougly confusing line of code but:
This is stripped out of another series of subroutines (most of it removed) but basically, this subroutine is passed the path to a given file. It first tests to see whether the path (file) exists via the ValidateLocations function, and then Kills it. the sSleep function is just a custom function that makes it wait 1 second.

Sub LoopKill(sDestFile As String)
 
 If ValidateLocations(sDestFile) Then
   Kill (sDestFile)
   sSleep (1000)
 End If

End Sub

Public Function ValidateLocations(ByVal strLoc As String) As Boolean

Dim lngType As Long

    ValidateLocations = Len(Dir(strLoc, lngType)) > 0

End Function

 

[Gerrit.B]

Solved with funtion below and bat file
************************
Option Compare Database


Function fncDelFile()
Dim intStart As Integer
intStart = Shell("C:\xx\xx\Delfile.bat")
End Function

************************

(Delfile.bat)
@echo off
del C:\xx\xx\filename2delete.*

************************

 

[mdmilner]

Gerrit,

All you had to do was:

Function fncDelFile() 

Kill ("C:\xx\xx\filename2delete.*")

End Function

Using batch files is, well, messy. And it limits you to being forced to set them up. The purpose of my original function was to allow you to pass values (the path to the file) so you can delete ANY file by code without creating batch files.

Mike

 

[Gerrit.B]

Thanks,
This works great