''' <summary>

''' dirpath est le path à tester

''' si vide return true

''' </summary>

''' <param name="dirpath"></param>

''' <returns>boolean</returns>

''' <remarks></remarks>

Function nofileindir(ByVal dirpath As String) As Boolean
Dim x As Integer = 0 
Try
For Each file As String In My.Computer.FileSystem.GetFiles(dirpath, FileIO.SearchOption.SearchAllSubDirectories, "*.*") 
If x = 0 Then

If IO.File.Exists(file) Then

Return False

Else

Return True

End If

End If

x = x + 1

Next
Catch ex As Exception 
MsgBox(ex.Message)

End Try

If x = 0 Then

Return True

End If

End Function

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); 
}