Missing Reference?

[EliseFreedman]

Hi there

I am trying to attach the following code to a button within my spreadsheet. Its purpose is to find a file matching a selected patients name. I am getting a run time error 438 - object doesnt support this property or method.

It highlights the line
objsearch.SearchFolders = True

Does anyone know where I am going wrong. I suspect I am missing a reference but not really sure

Private Sub CommandButton16_Click()
Dim searchname As String
searchname = Range("G12")
Set objexcel = CreateObject("excel.application")
objexcel.Visible = True
Set objsearch = objexcel.FileSearch
objsearch.LookIn = "M:\depts\HS&ES\Safety\Physio Stats\TreatmentRecords\"
objsearch.SearchFolders = True
objsearch.Filename = "PhysiotherapyTreatmentRecord" & searchname & ".xls"
objsearch.Execute
For Each strfile In objsearch.FoundFiles
wscript.echo strfile
Next
End Sub

 

[PHV]

I think you wanted this:
objsearch.SearchSubFolders = True

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886