I am trying to delete empty subfolders from Doc-Production older using a button but am getting the following error. Run-Time error '424' Object required. Code stops at imoji.
Private Sub Command65_Click()
'On Error Resume Next ' <-- Comment out for troubleshooting.
Const Prep = "\\servername\DART$\Document-Library\Doc-Production"
Dim objFolder, objSubFolder, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.getFolder(Prep)
Call Search(objFolder)
End Sub
Sub Search(objFolder)
:banghead:For Each objSubFolder In objFolder.SubFolders
Search (objSubFolder)
Next
For Each objSubFolder In objFolder
If objSubFolder.Files.Count = 0 Then objSubFolder.Delete
Next
End Sub
Private Sub Command65_Click()
'On Error Resume Next ' <-- Comment out for troubleshooting.
Const Prep = "\\servername\DART$\Document-Library\Doc-Production"
Dim objFolder, objSubFolder, objFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.getFolder(Prep)
Call Search(objFolder)
End Sub
Sub Search(objFolder)
:banghead:For Each objSubFolder In objFolder.SubFolders
Search (objSubFolder)
Next
For Each objSubFolder In objFolder
If objSubFolder.Files.Count = 0 Then objSubFolder.Delete
Next
End Sub