[ファイルが存在しているか確認する]

ファイルが存在しているか確認します。

FileExitst関数、またはFindFirst関数を使用します。

◆FileExists関数

【ソースコード】　[tips0054.pas]
program tips0054;
{$APPTYPE CONSOLE}
uses SysUtils;
var str:string;
begin
  str:='c:\temp.txt';
  if FileExists(str) then
    WriteLn(str,'　は存在します')
  else
    WriteLn(str,'　は存在しません''');
end.


【コンパイル＆実行】　[tips0054.bat]
dcc32 tips0054.pas 
tips0054.exe  > tips0054.txt
pause

【実行結果】　[tips0054.txt]
c:\temp.txt　は存在します


◆FindFirst関数

【ソースコード】　[tips0054_2.pas]
program tips0054_2;
{$APPTYPE CONSOLE}
uses SysUtils;
var
 str:string;
 sr:TSearchRec;
begin
  str:='c:\temp.txt';
  if FindFirst(str,faAnyFile,sr)=0 then
    WriteLn(str,'　は存在します')
  else
    WriteLn(str,'　は存在しません''');
  FindClose(sr);
end.


【コンパイル＆実行】　[tips0054_2.bat]
dcc32 tips0054_2.pas 
tips0054_2.exe  > tips0054_2.txt
pause

【実行結果】　[tips0054_2.txt]
c:\temp.txt　は存在します