Текущий архив: 2004.09.26;
Скачать: CL | DM;
Вниз
Как проверить, есть ли в определенной папке файл? Найти похожие ветки
← →
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]нет.
ты проверяешь наличие файла а не списка файлов.
← →
kand © (2004-09-10 16:57) [7]а что папка пустая?
← →
kukuikar © (2004-09-10 16:58) [8]
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;
← →
Гаврила © (2004-09-10 16:59) [9]
> [7] kand © (10.09.04 16:57)
FindFirst и так далее
Страницы: 1 вся ветка
Текущий архив: 2004.09.26;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.033 c
