Function to delete a folder and its content

[John J.]

I noticed that rmdir doesnt'work if there are subfolders and files in the
folder. Is there some function available that first clears all contents of
the folder and then deletes the folder itself?
Thank you,
John

 

[Arvin Meyer [MVP]]

I would simple delete it and handle any errors (untested):

Sub KillDir(strPath As String)
On Error Resume Next
Kill strDir
End Sub

 

[John J.]

Thanks, but it doesn't work. Deleting a folder with the kill statement
doesn't work (error: file cannot be found). The Help file says I should use
rmdir.
John

 

[H. Druss]

I noticed that rmdir doesnt'work if there are subfolders and files in the
folder. Is there some function available that first clears all contents of
the folder and then deletes the folder itself?
Thank you,
John

Hi John
Try this. Needs some error handling probably.
====================================================================================
Option Explicit
Private Declare Function RemoveDirectory Lib "kernel32" Alias
"RemoveDirectoryA" (ByVal lpPathName As String) As Long

Private Sub Command1_Click()
Dim sPath As String
sPath = "c:\DeleteThisFolder"
RemoveFilesAndFolder sPath
End Sub

Sub RemoveFilesAndFolder(sPath As String)
Dim ff As String
' need the trailing back slash
If Right(sPath, 1) <> "\" Then sPath = sPath & "\"
ff = Dir(sPath)
If ff <> "" Then
Kill sPath & "*.*"
End If
RemoveDirectory sPath
End Sub
===========================================================================================
Good luck
Harold

 

[John J.]

Thanks. But with this code only files in the main folder gets deleted.
The main folder itself, subfolders and subfolder files aren't deleted.
John

 

[TedMi]

rmdir FolderName /S
-TedMi

 

[John J.]

Sorry, but I should have mentioned that it should run in VBA.
John

 

[H. Druss]

I noticed that rmdir doesnt'work if there are subfolders and files in the
folder. Is there some function available that first clears all contents of
the folder and then deletes the folder itself?
Thank you,
John

Hi John
Try this:
===================================================================
Private Sub RemoveFoldersAndFiles(sPath As String)
If Right(sPath, 1) = "\" Then sPath = Left$(sPath, Len(sPath) - 1)
Dim fso As New Scripting.FileSystemObject
fso.DeleteFolder sPath

'You can also pass a second argument and set it to True if you want to force
the deletion of read-only files:
'fso.DeleteFolder sPath, True

End Sub
=======================================================================
Private Sub Command1_Click()

RemoveFoldersAndFiles "c:\theFolder"

End Sub
========================================================================

You need to add a reference to the Microsoft Scripting Runtime.

Good luck
Harold

 

[John J.]

Yes! it works.
Thanks so much.
John

Hi John
Try this:
===================================================================
Private Sub RemoveFoldersAndFiles(sPath As String)
If Right(sPath, 1) = "\" Then sPath = Left$(sPath, Len(sPath) - 1)
Dim fso As New Scripting.FileSystemObject
fso.DeleteFolder sPath

'You can also pass a second argument and set it to True if you want to
force the deletion of read-only files:
'fso.DeleteFolder sPath, True

End Sub
=======================================================================
Private Sub Command1_Click()

RemoveFoldersAndFiles "c:\theFolder"

End Sub
========================================================================

You need to add a reference to the Microsoft Scripting Runtime.

Good luck
Harold