how to Find emtpy folder in vb.net

Private listbox As New List(Of String)()

Public Function getemptyfolders(folderpath As String) As List(Of String)
	
	Try
		Dim dr As New List(Of String)() From { _
			folderpath _
		}
		Dim Spath1 As String

		For Each dir As String In dr
			Dim di As New DirectoryInfo(dir)
			Dim direcorries As DirectoryInfo() = di.GetDirectories("*.*", SearchOption.TopDirectoryOnly)
			'get all the directories

			For Each dada As DirectoryInfo In direcorries
				'search through all directories to get inner directory
				Try
					If dada.ToString() <> "System Volume Information" Then
						'ignore this 'System Volume Information'
						Dim Sdada As String = (folderpath & Convert.ToString("\")) + dada
						If Directory.GetDirectories(Sdada).Length = 0 AndAlso Directory.GetFiles(Sdada).Length = 0 Then
							'check the empty folders
							If Sdada.Contains("\") Then
								Sdada = Sdada.Replace("\\", "\")
							End If							

							listbox.Add(Sdada)
						Else
							Spath1 = (folderpath & Convert.ToString("\")) + dada
							getemptyfolders(Spath1)
						End If
					End If
				Catch

				End Try
			Next

		Next
	Catch
	End Try
	Return listbox
End Function

Directory.Delete(string path);

Private Sub EnumFolders(sDrive As String)

    Dim oFS As Scripting.FileSystemObject, oRoot As Folder

    Set oFS = New Scripting.FileSystemObject
    
    Set oRoot = oFS.GetFolder(sDrive & "\")
    Call RecurseFolders(oRoot)

    Set oRoot = Nothing
    Set oFS = Nothing

End Sub

Private Sub RecurseFolders(oFolder As Folder)

    Dim oSub As Folder
    
    For Each oSub In oFolder.SubFolders
        If oSub.SubFolders.Count = 0 Then
            If oSub.Files.Count = 0 Then
                oSub.Delete
            End If
        Else
            Call RecurseFolders(oSub)
        End If
    Next oSub

End Sub

Dim dr As New List(Of String)() From { _
            folderpath _
        }