| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как проверить, есть ли в определенной папке файл? [D7, Win95/98]

kand ©   (2004-09-09 18:53:00) 

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

---

Гаврила   (2004-09-10 16:59:00) [1]

>  [7] kand ©   (10.09.04 16:57)


FindFirst и так далее

---

kukuikar   (2004-09-10 16:58:00) [2]

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;

---

kand   (2004-09-10 16:57:00) [3]

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

---

kukuikar   (2004-09-10 16:55:00) [4]

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

---

kand   (2004-09-10 16:54:00) [5]

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

---

Ega23   (2004-09-10 16:52:00) [6]

А проверить?

---

kand   (2004-09-10 16:49:00) [7]

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

---

kand   (2004-09-09 18:57:00) [8]

спасибо

---

Defunct   (2004-09-09 18:55:00) [9]

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

---

Наверх