Delete Empty Folder Once files are moved. (1 Viewer)

I have a button that moves files from location 1 to location 2. If the folder doesn't exist in location 2, it creates it before moving the files. What i am trying to do is delete the empty folder from location 1 once the files have been moved to location 2. How would i do this?

Here is my current working code that moves the files perfectly but leaves the empty folder behind in location 1.

Private Sub Command63_Click()


Const Prep = "\\servername\dart$\Document-Library\Doc-Production"
Const Pub = "\\servername\DART$\Document-Library\Public"



Dim OldPath As String
Dim NewPath As String
Dim LoopFile As String
Dim FileExt() As String
'Dim Doc_Folder As String

Dim Folder As String
Dim fso As Object


Folder = Replace(Pub & Doc_Number, "/", "-")



' Create FileSystemObject
Set fso = CreateObject("Scripting.FileSystemObject")

' Check whether folder exists
If fso.FolderExists(Folder) = False Then

' If not, create it
fso.CreateFolder Folder
End If

' Open it
Shell "explorer.exe " & Folder, vbNormalFocus


OldPath = Replace(Prep & Doc_Number & "", "/", "-")
NewPath = Replace(Pub & Doc_Number & "", "/", "-")
LoopFile = Dir(OldPath & "*.*")
Do While LoopFile <> ""
FileExt = Split(LoopFile, ".")
Select Case FileExt(UBound(FileExt))
Case "docx", "doc"
Name OldPath & LoopFile As NewPath & LoopFile
End Select
LoopFile = Dir
Loop



End Sub

To delete a file use

To Delete a folder (it has to be empty)

Thanks,

Is there any way to only delete the folder if it is empty. happy for it to delete all empty subfolders rather than specific folder.

RmDir will fail if the directory isn't empty, so sort of "inbuilt" protection.

https://msdn.microsoft.com/en-us/vba/language-reference-vba/articles/rmdir-statement

Ok the only issue i can find with this command is it also deletes the parent folder. i need it to delete only the empty subfolders.

Heres the code that worked.

Private Sub Command65_Click()
On Error Resume Next ' <-- Comment out for troubleshooting.

Const Prep = "\\Servername\DART$\Document-Library\Doc-Production"

Dim objfolder
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objfolder = objFSO.getFolder(Prep)

Call Search(objfolder)
End Sub
Sub Search(objfolder)

Const Prep = "\\Servername\DART$\Document-Library\Doc-Production"
Dim objsubfolder, objfile

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objfolder = objFSO.getFolder(Prep)

'For Each objfile In objfolder.Files
'If DateDiff("d", objfile.dateLastModified, Now) > 30 Then objfile.Delete
'Next

For Each objsubfolder In objfolder.SubFolders
If objsubfolder.Files.Count = 0 Then objsubfolder.Delete
Next

End Sub