As far as i am aware the FileSearch has been dropped in xl2007.Howard31;230775 Wrote:
Hi all,

I'm using Application.FileSearch in Excel 2007 in a file which is in a
USB
memory stick and the files I'm searching are in the same USB in a
folder
which is in the same folder as the file I'musing this code and I;m
getting an
error "Object doesn't support this action". This is the code I'm using:

Dim FileFound As Variant

With Application.FileSearch
.NewSearch
.LookIn = ThisWorkbook.Path & "\Properties"
.Execute

For Each FileFound In .FoundFiles
If Mid(FileFound, 9) = PropertyID Then
With
Workbooks("Statement_Invoice_Retrieval_Info.xla"). Worksheets("Sheet_ID").Range("PropertyID")

.Value = .Value + 1
PropertyID = .Value
End With
End If
Next FileFound
End With

Any idea what's wrong with the above code?

--
A. Ch. Eirinberg


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=64490