FileSystemObject query.

[DaveO]

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.

 

[perry]

You can't expect FileExists() to counter an object.
It returns a boolean.

I think the purpose of yr code is to return a file object, correct?
If so, use the following example:

Dim MyFile As object
If fsoFileExists.fileexists(strFullPath) Then
set MyFile = fsoFileExists.GetFile(strFullPath)
msgbox MyFile.Path
end if