check text file existance

hawwa

How do I check the existance of a text file in a directory?

thank you
hawwa

Luc_VanDyck

If you would have used the search function of this forum, you would have found this thread (among others): http://www.mibuso.com/forum/viewtopic.php?t=1633 [-X

Jelias1

You can also try the Automation object Microsoft Scripting Runtime. It contains a COM object called the FileSystemObject. This gives you full control of directory/file queries and file/directory management. It contains a method called FileExists, among many other useful methods.

Arhontis

:?: Why not? (copy pasted from help)

EXISTS (File)
Use this function to determine if a file exists.

[Ok :=] File.EXISTS(Name)
Ok

Data type: boolean

This return value tells you whether or not the file exists.

Ok will be...
 If the file...
 
TRUE Exists 
FALSE Does not exist 

Jelias1

One problem with C/Side's EXISTS keyword is that it does not accept wild cards. Sometimes you want to know if any file exists in a directory.

Arhontis

:oops: did't got the '... of a text file in ...' right...

kine

Function FExist(pPath:Text[1000]):boolean;
var
  FileList: record 2000000022;
begin
  FileList.SETRANGE(Path,  pPath);
  FileList.SETRANGE("Is a File",true);
  FileList.SETFILTER(Name,'*.txt');
  exit(FileList.FIND('-'));
end;

Code was written from the scratch. Can be there some mistakes... 8)

Jelias1

Wow! This works great. I'm embarrassed. :oops: I didn't know you could do that. Thanks!