function IncludeSearchSDS(const Path: string): string;
begin
  result := path;
  if IsPathDelimiter(Result, Length(Result)) then
    Result := Result + '*.*'
  else
    Result := Result + PathDelim + '*.*';
end;
function IsEmptyDirectory(const Path: String): boolean;
var
  SR : TSearchRec;
  C  : integer;
begin
  result := true;
  C      := 0;
  if DirectoryExists(Path) then
    if SysUtils.FindFirst(IncludeSearchSDS(Path), faAnyFile, SR) = 0 then
    try
      repeat
        if (SR.Name <> '.') and (SR.Name <> '..') then
          inc(C);
      until (SysUtils.FindNext(SR) <> 0) or (C > 0);
      result := C = 0;
    finally
      SysUtils.FindClose(SR);
    end;
end;

Function PathIsDirectoryEmpty(pszPath: PChar):Bool; stdcall; External 'ShLwApi.dll' name 'PathIsDirectoryEmptyA';

a partir de Turbo Delphi 2006 plus la peine de déclarer la fonction 
il suffit d'ajouter l'unité 'ShLwApi' à la clause "Uses"

'déclaration API en VB6 et  VBA !! => LONG
Private Declare Function PathIsDirectoryEmpty Lib "shlwapi.dll" Alias "PathIsDirectoryEmptyA" (ByVal pszPath As String) As Long
'déclaration API en  VB.NET !! => INTEGER
Private Declare Function PathIsDirectoryEmpty Lib "shlwapi.dll" Alias "PathIsDirectoryEmptyA" (ByVal pszPath As String) As Integer

'même fonction  pour les différentes versions de VB, choisir la bonne  déclaration
Function IsDirectoryEmpty(ByVal sDirectory As String) As Boolean
'   le chemin peut (ou non) se terminer par un dernier  "\"
    IsDirectoryEmpty = (PathIsDirectoryEmpty(sDirectory) >  0)
End Function

[DllImport("shlwapi.dll", CharSet = CharSet.Auto)] 
internal extern static bool PathIsDirectoryEmpty(string pszPath);
public bool DirectoryIsEmpty(string path) 
{
return PathIsDirectoryEmpty(path); 
}

  Private Function IsFileLess(ByVal Path As String, Optional ByVal searchPattern As String = "*", Optional ByVal searchOption As System.IO.SearchOption = System.IO.SearchOption.AllDirectories) As Boolean
  ' True si pas de fichier et/ou des dossiers vides (paramètres par défaut)
  ' False sur Exceptions (Voir remarque)
    Try
      'If Not (System.IO.Directory.Exists(Path)) Then Return True
       Return (System.IO.Directory.GetFiles(Path, searchPattern, searchOption).Length = 0)
    Catch ex As Exception
       MessageBox.Show(ex.Message)
    End Try
  End Function

  Private Function IsEntryLess(ByVal Path As String, Optional ByVal searchPattern As String = Nothing) As Boolean
  ' True si pas de fichier et pas de dossier (paramètres par défaut)
  ' False sur Exceptions (Voir remarque)
    Try
      'If Not (System.IO.Directory.Exists(Path)) Then Return True
      Return (System.IO.Directory.GetFileSystemEntries(Path, searchPattern).Length = 0)
    Catch ex As Exception
      MessageBox.Show(ex.Message)
    End Try
  End Function