'�=� , �=� , �=� ; �=� , �=�, �=� , �=� ,�=� , �=�, �=�
'Copy from here..
Declare Function GetFAttr Lib "kernel32.dll" Alias "GetFileAttributesA" _
   (ByVal lpFileName As String) As Integer
Declare Function Exists(FileName As String) As Integer
Declare Function FileExists(FileName As String) As Integer
Declare Function ExistsFolder(FileName As String) As Integer

Function Exists(FileName As String) As Integer
  Var DIRECTORY_BIT=&H04
  Dim As Integer Attribut=GetFAttr(FileName)
  Return IIf(Attribut<0, 0, Bit(Attribut, DIRECTORY_BIT)+2)
  '2=File found, 1=Folder found, 0=Nothing found
End Function

Function FileExists(FileName As String) As Integer
  Return Exists(FileName)=2
End Function

Function FolderExists(FolderName As String) As Integer
  Return Exists(FolderName)=1
End Function
'.. to here and save as "Exist.Bi" to your .inc-folder

Sub Bewerte(ByVal FileName As String)
	Var s=FileName &"=>" &Exists(FileName) &!"\n" &"File "
  If Not FileExists(FileName) Then s &= "not "
  s &= !"found\nFolder "
  If Not FolderExists(FileName) Then s &= "not "
  Print s &"found"
End Sub

Dim As String FileName
Bewerte(Environ("Tmp") &"\Test.All")
Bewerte(Environ("Tmp") &"\Test1.All")
Bewerte(Environ("Tmp") &"\TestZ.All")
Print "..there is no guarantee at all..;-))"
Print "Tested with FB0.21.1 using FBEdit"
GetKey