Текущий архив: 2003.02.13;
Скачать: CL | DM;

Вниз

Есть файл?   Найти похожие ветки 

← →
Ozone ©   (2003-01-05 07:59) [0]

Подскажите API-шную функцию для определения есль-ли файл в указанной дирректории.

---

← →
BoxTer ©   (2003-01-05 08:02) [1]

FileName:="c:\11.txt";
AssignFile(Fil,FileName);
if not FileExists(FileName) then
Rewrite(Fil);
else
Append(Fil);

---

← →
Song ©   (2003-01-05 08:44) [2]

CreateFile()

---

← →
VAleksey ©   (2003-01-05 09:04) [3]

> FileExists

чем не устраивает ?

---

← →
Слесарь Матерящийся ©   (2003-01-05 11:13) [4]

GetFileAttributes()

---

← →
Verg ©   (2003-01-05 13:37) [5]


function FileExists(const FileName: string): boolean;
var
Handle: THandle;
FindData: TWin32FindData;
begin
result:=false;
Handle := Windows.FindFirstFile(PChar(FileName), FindData);
if Handle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(Handle);
result:=true;
end;
end;


---

Страницы: 1 вся ветка

Текущий архив: 2003.02.13;
Скачать: CL | DM;

Наверх

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