with application.filesearch
 

What happend to the following function? Now that I'm using Vista and Excel
2007.

With Application.FindSearch
.Filename = FleName
.LookIn = SrchFlePath
.TextOrProperty = SrchNam
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderDescending) 0 Then
For i = 1 To .FoundFiles.Count
SrchNme = .FoundFiles.Item(i)
Vrsxls = Right(SrchNme, 6)
VrsNum = Left(Vrsxls, 2)
If IsNumeric(VrsNum) Then
VrsNbr = Left(Vrsxls, 2)
Else
VrsNbr = 0
End If
Exit For
Next i
Else
VrsNbr = 0
End If
VrsNbr = VrsNbr + 1
VrsNo = Format(VrsNbr, "00")
End With

with application.filesearch
 

FileSearch (not .FindSearch) was removed in xl2007.

Ron de Bruin shares a couple of replacements:
http://www.rondebruin.nl/copy3.htm (for Dir())
and
http://www.rondebruin.nl/fso.htm (for FSO)



Rick wrote:

What happend to the following function? Now that I'm using Vista and Excel
2007.

With Application.FindSearch
.Filename = FleName
.LookIn = SrchFlePath
.TextOrProperty = SrchNam
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderDescending) 0 Then
For i = 1 To .FoundFiles.Count
SrchNme = .FoundFiles.Item(i)
Vrsxls = Right(SrchNme, 6)
VrsNum = Left(Vrsxls, 2)
If IsNumeric(VrsNum) Then
VrsNbr = Left(Vrsxls, 2)
Else
VrsNbr = 0
End If
Exit For
Next i
Else
VrsNbr = 0
End If
VrsNbr = VrsNbr + 1
VrsNo = Format(VrsNbr, "00")
End With

--

Dave Peterson