Find if a file exsist

[kkson]

I am trying to see if a file exsist before I import it into my db. If the file is not there and I run the transfertext command I get an error on the import. I would like to check for the file before importing.

thanks

 

[Remou]

Hi
Dir works well.

 

[rdandrade]

Here's a cool little function"

Function FileExists(FilePath As String) As Boolean
  Dim iLen As Integer
 
  On Error Resume Next
  iLen = Len(Dir(FilePath))

  FileExists = (Not Err And iLen > 0)

End Function

Ray D'Andrade

http://www.brightnetwork.com

 

[kkson]

Thanks, dir worked. Will try the function.