Seems that they removed this from the new version.
I have see some links but still cannot figure out what to do now.
Can someone please help? Thanks

Set Fs = Application.FileSearch
With Fs
.LookIn = "C:\Network\FileLocations\"
.Filename = "FileName.xls"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) = 0 Then
'Do nothing
Else
'Then set a formula in main dbs file to get next entry row cell in file it
was loking for.
Dim SetFile As String
SetFile = "FileName.xls"
Range("A1").Value = "'LookIn & "[" & SetFile & "]Sheet1'!$A$1"
End If
End With

The formula still does that apostrophe thing when file is not open and that
is what I need for changes to work.

Any help is highly appreciated

Thank you

--
George G

FileSearch has been ditched in Excel 2007. Use Dir in its place, there is a
good example in Help.

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Sgwapt" <(E-Mail Removed)> wrote in message
news:B7200A9D-2F12-4FFC-95E9-(E-Mail Removed)...
> Seems that they removed this from the new version.
> I have see some links but still cannot figure out what to do now.
> Can someone please help? Thanks
>
> Set Fs = Application.FileSearch
> With Fs
> .LookIn = "C:\Network\FileLocations\"
> .Filename = "FileName.xls"
> If .Execute(SortBy:=msoSortByFileName, _
> SortOrder:=msoSortOrderAscending) = 0 Then
> 'Do nothing
> Else
> 'Then set a formula in main dbs file to get next entry row cell in file it
> was loking for.
> Dim SetFile As String
> SetFile = "FileName.xls"
> Range("A1").Value = "'LookIn & "[" & SetFile & "]Sheet1'!$A$1"
> End If
> End With
>
> The formula still does that apostrophe thing when file is not open and
> that
> is what I need for changes to work.
>
> Any help is highly appreciated
>
> Thank you
>
> --
> George G