[Amin_Mansouri]

با سورس زیر میتونید چک کنید ایا داخل پوشه یا همون فولدر فایلی هست یا نه ؟ مقدار برگشتی تابع بصورت true و false هست برای اجرا نیاز به فرواخوانی 2 یونیت SysUtils, Windows. هست.

کد:

function IsFolderEmpty(const AFolder: string): Boolean;
var
  SearchRec: SysUtils.TSearchRec; // info about files in folder
resourcestring
  // Error messages
  sNoFolder = 'No folder has been specified';
  sBadFolder = '"%s" is not a folder';
begin
  if AFolder = '' then
    raise SysUtils.Exception.Create(sNoFolder);
  if not IsDirectory(PathToDir(AFolder)) then
    raise SysUtils.Exception.CreateFmt(sBadFolder, [AFolder]);
  try
    Result :=
      (
        SysUtils.FindFirst(
          DirToPath(AFolder) + '*.*', SysUtils.faAnyFile, SearchRec
        ) = 0     // . directory
      ) and
      (SysUtils.FindNext(SearchRec) = 0) and  // .. directory
      (SysUtils.FindNext(SearchRec) <> 0);
  finally
    SysUtils.FindClose(SearchRec);
  end;
end;