Форум: "Основная";
Текущий архив: 2004.09.26;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.023 c