Как проверить, есть ли в определенной папке файл?

← →
kand © (2004-09-09 18:53) [0]

Привет всем!
Как можна проверить, есть ли в определенной папке определенный файл? И как выдать сообщение об этом?
Спасибо.

← →
Defunct © (2004-09-09 18:55) [1]

if Not FileExists(..) Then ShowMessage(..)

← →
kand © (2004-09-09 18:57) [2]

спасибо

← →
kand © (2004-09-10 16:49) [3]

маска поддерживается?
Например,
if Not FileExists(с:\1\*.*) Then ShowMessage("Пусто")

← →
Ega23 © (2004-09-10 16:52) [4]

А проверить?

← →
kand © (2004-09-10 16:54) [5]

пока что не на чем

← →
kukuikar © (2004-09-10 16:55) [6]

нет.
ты проверяешь наличие файла а не списка файлов.

а что папка пустая?

procedure GetDirSize(Dir: string; IncludeSubDirs: Boolean; var Result: Int64; CallbackProc: TGetDirSizeCallback = nil; CallbackTag: Integer = 0); overload; var SearchRec: TSearchRec; FindResult: Integer; begin Dir := IncludeTrailingBackslash(Dir); FindResult := FindFirst(Dir + "*.*", faAnyFile, SearchRec); try while FindResult = 0 do with SearchRec do begin if (Attr and faDirectory) <> 0 then begin if IncludeSubDirs and (Name <> ".") and (Name <> "..") then GetDirSize(Dir + Name, IncludeSubDirs, Result, CallbackProc, CallbackTag); end else begin Result := Result + Cardinal(Size); if Assigned(CallbackProc) then CallbackProc(CallbackTag, Result); end; FindResult := FindNext(SearchRec); end; finally FindClose(SearchRec); end; end;

Как проверить, есть ли в определенной папке файл? Найти похожие ветки