searching a file

Ken · Joined: 04 Oct 2007 Posts: 7

Hi All,

I want to search a file in some specified directory. The result i am
expecting is whether the file exists in that particular directory or not.

Example:
if i give search "c:\x.bin", the result should say whether file exists or not.

I want to use this in an application. If the file does not exists then i
need to create a file with some private data in it.

Is there any function in File systems to achieve this? Like we have
function to create a file and delete a file. Likewise do we have any
functions to search a file?

Thanks

Archived from group: microsoft>public>vb>syntax

"Rick Rothstein \ · Joined: 04 Oct 2007 Posts: 1584

> I want to search a file in some specified directory. The result i am
> expecting is whether the file exists in that particular directory or not.
>
> Example:
> if i give search "c:\x.bin", the result should say whether file exists or
> not.
>
> I want to use this in an application. If the file does not exists then i
> need to create a file with some private data in it.
>
> Is there any function in File systems to achieve this? Like we have
> function to create a file and delete a file. Likewise do we have any
> functions to search a file?

Give this function a try...

Function FileExists(FileName As String) As Boolean
On Error GoTo ErrorHandler
' Make sure the file exists and is not a directory
If (GetAttr(FileName) And vbDirectory) vbDirectory Then
FileExists = True
End If
Exit Function
ErrorHandler:
FileExists = False
End Function

Rick

MikeD · Joined: 04 Oct 2007 Posts: 3348

"Ken" wrote in message @microsoft.com...
> Hi All,
>
> I want to search a file in some specified directory. The result i am
> expecting is whether the file exists in that particular directory or not.
>
> Example:
> if i give search "c:\x.bin", the result should say whether file exists or
> not.

That's not searching a file. That's not even searching FOR a file. That's
just determining if a file exists in a given directory.

Somebody will probably come along and tell you to use the Dir function.
Don't! It will cause problems if you're using Dir for anything else at the
time. There are plenty of other ways to determine if a file exists that
won't have consequences. Here's one:

(air code)

Public Function FileExists(ByVal sFileName As String) As Boolean

On Error GoTo EH

If (GetAttr(sFileName) And vbDirectory) vbDirectory Then
FileExists = True
End If

Exit Function

EH:

FileExists = False

End Function

--
Mike
Microsoft MVP Visual Basic