[.NET2] RECHERCHE LES DOSSIERS VIDES À PARTIR D'UN EMPLACEMENT

Private Function GetDirectoryNames(ByVal Path As String, Optional ByVal InSubDirectory As FileIO.SearchOption = FileIO.SearchOption.SearchTopLevelOnly) As Array

        '--------------------------------------------------------
        'Récupère les noms des dossiers présent dans un dossier
        '--------------------------------------------------------

        Dim sFoundDir As String
        Dim arrayDir As Array
        Dim byteTmp As Byte = 0

        arrayDir = Array.CreateInstance(GetType(String), NumOfDirectories(Path, InSubDirectory))

        For Each sFoundDir In My.Computer.FileSystem.GetDirectories(Path)
            arrayDir(byteTmp) = sFoundDir
            byteTmp += 1
        Next

        Return arrayDir

        arrayDir = Nothing

    End Function

    Private Function NumOfDirectories(ByVal Path As String, Optional ByVal InSubDirectory As FileIO.SearchOption = FileIO.SearchOption.SearchTopLevelOnly) As Integer

        '--------------------------------------------------------
        'Renvoie le nombre de dossiers présent dans un dossier
        '--------------------------------------------------------

        Try
            Return My.Computer.FileSystem.GetDirectories(Path, InSubDirectory).Count
        Catch ex As Exception
            Return -1
        End Try

    End Function

    Private Function IsAccessDenied(ByVal DirectoryName As String) As Boolean

        '----------------------------------------------
        'Determine si l'accès à un dossier est refusé
        '----------------------------------------------

        Dim shtCnt As Short

        Try
            shtCnt = My.Computer.FileSystem.GetDirectories(DirectoryName, FileIO.SearchOption.SearchTopLevelOnly).Count
            Return False
        Catch ex As Exception
            Return True
        End Try

    End Function

    Private Function Engine_SearchEmptyDirs(ByVal Path As String, ByRef CurrentDir As String) As Array

        '----------------------------------------------------------
        'Recherche de dossiers vides (sans fichiers ni dossiers)
        '----------------------------------------------------------

        'Variable locales
        Dim sArrayRet() As String = Nothing
        Dim k As Integer = -1
        Dim iFiles, iFolders As Integer
        Dim sFolder, sFolderSub As String

        'nom des dossiers racines
        For Each sFolder In GetDirectoryNames(Path)
            'test si l'accès au dossier et refusé... si il n'y est pas alors...
            If IsAccessDenied(sFolder) = False Then
                CurrentDir = sFolder

                'récupère le nb de fichiers et sous-dossiers dans le dossier en cours (sFolder)
                iFiles = Directory.GetFiles(sFolder).Length
                iFolders = Directory.GetDirectories(sFolder).Length

                'si aucun fichiers ni sous-dossiers récupération du nom du dossier
                If (iFolders + iFiles) = 0 Then
                    k += 1 : ReDim Preserve sArrayRet(k)
                    sArrayRet(k) = sFolder
                End If

                'sous-dossiers du dossier en cours (sFolder)
                For Each sFolderSub In Directory.GetDirectories(sFolder, "*", SearchOption.AllDirectories)
                    'test si l'accès au dossier et refusé... si il n'y est pas alors...
                    If IsAccessDenied(sFolderSub) = False Then
                        CurrentDir = sFolderSub

                        'récupère le nb de fichiers et sous-dossiers
                        iFiles = Directory.GetFiles(sFolderSub).Length
                        iFolders = Directory.GetDirectories(sFolderSub).Length

                        'test si aucun fichiers ni sous-dossiers et récupère le nom du dossier
                        If (iFolders + iFiles) = 0 Then
                            k += 1 : ReDim Preserve sArrayRet(k)
                            sArrayRet(k) = sFolderSub
                        End If
                    End If
                Next

            End If
        Next

        Return sArrayRet
        sArrayRet = Nothing

    End Function