04-27-2012، 10:54 AM
با سورس زیر میتونید چک کنید ایا داخل پوشه یا همون فولدر فایلی هست یا نه ؟ مقدار برگشتی تابع بصورت 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;