Error on using Kill to remove all files from directory if directory is empty

[justinwright]

I have (kinda) the following code:

Kill(Me.txtFullPath.Value & "\*.*")

to clear out all the files out of a specified folder. I then use:

RmDir(Me.txtFullPath.Value)

to remove the folder itself. I found out the hard way that (to my understanding) you had to clear out all files out of the directory before executing the RmDir command, or it would error out with a Permissions error.

It works fine as-is, as long as there is actually at least one file in the folder in question. If there are no files, and merely the existance of the folder (the folder will always exist, by the way), it errors out with a "File not found" error. Any ideas how to fix it?

I had thought about using Nz(), but I don't want to use it on that and blow something up.

[RuralGuy]

Use Dir() first.

[justinwright]

It says "Error: Expected Sub, function, or property" when I use

Dir(Me.txtFullPath.Value & "\")

or

Dir(Me.txtFullPath.Value)

And if I try just Dir(), it errors out as well.

I also tried checking to see if the string length of the Dir of it was 0, but it gave me a type mismatch (read in help about the zero-length string thing)

[boblarson]

Umm, you would use the same syntax as your kill command. So, did you try that?

If Dir(Me.txtFullPath.Value & "\*.*") = vbNullString Then
   Kill(Me.txtFullPath.Value & "\*.*")
End If

[justinwright]

That's what I used to check the string length as well (exact same code, actually), but for some reason it's giving me a type mismatch error on the first line.

[justinwright]

...oh wow, I just realized I'm retarded. It's been a long day already

I had used

dim folder, files, dir

at the top for something else I was doing. I changed the reference to not take up dir as a variable.

It worked like a charm, thanks guys!

EDIT:

By the way, I ended up using the code:

If dir(Me.txtFullPath.Value & "\*.*") = vbNullString Then
RmDir (Me.txtFullPath.Value)
Else
Kill (Me.txtFullPath.Value & "\*.*")
RmDir (Me.txtFullPath.Value)
End If

[RuralGuy]

Thanks for posting back with your success.