Set strFileToLookFor = fsoFileExists.fileexists(strFullPath)
should be

Dim strFileToLookFor as Boolean
strFileToLookFor = fsoFileExists.fileexists(strFullPath)

or you can skip the intermediate variable and do
blnExists = fsoFileExists.fileexists(strFullPath)

--
Regards,
Tom Ogilvy


"DaveO" wrote in message
...
I have a check box, and when checked I want to open a document. I know
where
this document will be, but I want the latest version of it.

All of the file names will be the same except that it will have a marker
to
denote what version. What I can't figure is how to do this properly.

I know that I can use the FileSystemObject and the FileExists method, but
can't seem to get it working.

Here's the code ...

Private Sub chkBMHFups_Click()

strRequired = "BMHFups"
intCounter = 1
blnExists = True

If chkBMHFups Then

Set fsoFileExists = CreateObject("Scripting.FileSystemObject")

Do While blnExists

strFullPath = fctWhereToLook & Left(strRequired,
Len(strRequired) -
4) & intCounter & Right(strRequired, 4)

Set strFileToLookFor = fsoFileExists.fileexists(strFullPath)

intCounter = intCounter + 1
blnExists = strFileToLookFor

Loop

End If

Set fsoFileExists = Nothing
strRequired = ""
intCounter = 1
blnExists = False

End Sub

fctWhereToLook is working fine, but it errors when I get to the ...

Set strFileToLookFor = fsoFileExists.fileexists(strFullPath)

The error is this...

Run-time error '424':

Object required.

I'm not sure how to use this funtion so any help would be gratefully
received.

Thanks.