in VBA, can i remove a folder without FileSearch?

[Andrew XJ]

Could anyone tell me how to remove a folder? or how to remove all files in a folder without fileSearch ?
Thx

[Anne Troy]

Well, you can delete all the files in a folder with this line:

kill "c:foldername*.*"

But I can't work out how to delete a folder.

[Anne Troy]

Just found it and stole it:

How to delete a folder (folder must be empty):

RmDir "NewPrivateFolder"
' deletes the subfolder NewPrivateFolder in the active folder
RmDir "F:My DocumentsNewPrivateFolder"
' deletes the subfolder NewPrivateFolder in the folder F:My Documents

[Andrew XJ]

thx.
In fact i know from the help file that if i delete folder, the folder must be empty. So i still need to use Kill to delete all files in every sub folder first. Is it? No shortcut?

[Anne Troy]

I'm not sure how much of a shortcut you need. Ok, so I stole it from here:

http://www.erlandsendata.no/english/...icexamples.htm

I figure if he didn't offer it up here when he had a chance, it's not available. Unless, of course, it's in a newer version.

[Andrew XJ]

Thx, Dreamboat. , I have changed my mind and now i use FileSystemObject to move whole folder to another place instead of delete the original dirty folder.
You are a very activative and kind-hearted female here

[ This Message was edited by: Andrew XJ on 2002-03-15 21:17 ]

[Ivan F Moala]

Try this then;

Sub RemoveDir_WithFiles()
Dim Fs As Object

On Error GoTo DelErr
'CAUTION: Will delete entire Folder NO PROMPT
Set Fs = CreateObject("Scripting.FileSystemObject")
Fs.DeleteFolder "C:mydir", True

Exit Sub
DelErr:
MsgBox Err.Number & vbCr & _
Err.Description
End Sub


Ivan

[Andrew XJ]

Great!!
Ivan, it works.Thx!