FileSystemObject help please.
 

Thanks for the help guys,

had a think over the weekend and realised I needed a Boolean rather than a
string!

"DaveO" wrote:

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.