Search subdirectories and remove empty folders
Code:
Private Sub CleanUp()
Dim sNextDir As String
sNextDir = Dir(strWorkDir, vbDirectory)
While sNextDir <> ""
If (sNextDir <> ".") And (sNextDir <> "..") Then
Dim sNextFile As String
sNextFile = Dir(strWorkDir & sNextDir & "\*.*")
Dim intTeller As Integer
While sNextFile <> ""
intTeller = intTeller + 1
sNextFile = Dir
Wend
If intTeller = 0 Then RmDir (strWorkDir & sNextDir)
End If
sNextDir = Dir
Wend
End Sub
This code gives me Run Time Error 5 (Invalid procedure call or argument) and highlights this line The purpose of the code is to delete empty subfolders!
Anyone got a clue?
Thx allready