* Wildcard and FileExists

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Bruce - 26 Jul 2005 03:03 GMT

Can anyone tell me why the * wildcard does not work in the example below?

Rgds

Bruce

myDest = "C:\test\"
If fs.FileExists(myDest & "*.mdb") Then
fs.DeleteFile myDest & "*.mdb", True
End If

Reply to this Message

Ken Snell [MVP] - 26 Jul 2005 03:10 GMT

ummm... because FileExists expects to be given the full name of a single
file.

What are you wanting to do? Delete all files in a folder?

Signature

Ken Snell
<MS ACCESS MVP>

> Can anyone tell me why the * wildcard does not work in the example below?
>
[quoted text clipped - 6 lines]
> fs.DeleteFile myDest & "*.mdb", True
> End If

Reply to this Message

Bruce - 26 Jul 2005 03:20 GMT

Yes Ken, I would like to delete all files with a mdb extension.

Bruce

> ummm... because FileExists expects to be given the full name of a single
> file.
[quoted text clipped - 11 lines]
> > fs.DeleteFile myDest & "*.mdb", True
> > End If

Reply to this Message

Ken Snell [MVP] - 26 Jul 2005 03:27 GMT

Then I would use a slightly different approach:

Dim strFile As String
strFile = Dir(myDest & "*.mdb")
Do While strFile <> ""
Kill myDest & strFile
strFile = Dir()
Loop

Signature

Ken Snell
<MS ACCESS MVP>

> Yes Ken, I would like to delete all files with a mdb extension.
>
[quoted text clipped - 16 lines]
>> > fs.DeleteFile myDest & "*.mdb", True
>> > End If

Reply to this Message