FileSystemObject help please.
 

Dave,

This works for me

chkBMHFups = True
fctWhereToLook = "C:\myTest\"
If chkBMHFups Then

Set fsoFileExists = CreateObject("Scripting.FileSystemObject")

Do
stemp = fctWhereToLook & Left(strRequired, Len(strRequired) - 4) &
intCounter & Right(strRequired, 4) & ".xls"
blnExists = fsoFileExists.fileexists(stemp)
If blnExists Then
strFullPath = stemp
intCounter = intCounter + 1
End If
Loop Until Not blnExists

End If

--
HTH

Bob Phillips

"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.