Kill files

[Kathy Webster]

I want to delete all files in a folder, and only error show the error
message if one or more of these files happens to be locked for any reason.
Unfortunately, this code is showing error message even when the folder is
empty, not when there is really a problem with deleting one of the files:

Public Function kill_tempfiles() As Boolean

On Local Error GoTo Err

Dim x As String
x = "K:\tempfiles\*.*"
Kill x
Exit Function
Err:
' MsgBox "We are sorry, but there is a problem with one or more of the
temp files in your temp file folder."

End Function

Thanks in advance.

 

[Klatuu]

Check to see if the file exists before you delete it.

Dim x As String

x = Dir("K:\tempfiles\*.*")
do while Len(x) > 0
Kill x
x = Dir()
Loop
Exit Function

Err:

 

[Douglas J. Steele]

I think you'd need

Dim x As String

x = Dir("K:\tempfiles\*.*")
do while Len(x) > 0
Kill "K:\tempfiles\" & x
x = Dir()
Loop
Exit Function

 

[Klatuu]

I thought so too, but I tested it and it did it without the path, but maybe I
was in my default path when I tested it.

 

[Kathy Webster]

Great. Thanks! What does this mean, and why do you need it?

x =Dir()

 

[Klatuu]

Look in VBA Help for the Dir function
It returns the next file name in the path you specify with the first call to
it. It continutes returning file names until there are no more in the list.
Then it returns ""

 

[Douglas J. Steele]

That implies that something in the code set CurDrive to point to K, and
CurDir to point to K:\tempfiles, or if the database was opened using a
shortcut, the shortcut's Startin folder is K:\tempfile.

Personally, I'd hate to rely on that assumption.

 

[Klatuu]

No argument here.