I burn a set of files - an Excel workbook and several Word documents - to a
CD. All the files are in the same folder. I have hyperlinks in the
workbook to the Word docs that work fine, no matter what the CD drive letter
of the individual computer is.

But I also have a search function that returns the names of documents
matching the search criteria. It works fine on my computer, and fine on a
network drive. But I'm having trouble telling the function to look at "this
folder" on whatever drive it happens to be on. If anyone has suggestions, I
would appreciate it. The relevant parts of the code a

Dim strLocation As String
strLocation = "This Folder"

strName = Range("D3").Text

With Application.FileSearch
.NewSearch
.LookIn = strLocation
.SearchSubFolders = False
.TextOrProperty = strSearchFor
.Filename = "L5-" & strName & "*.doc"
.Execute

TIA
Ed

It isn't clear what "this folder" is supposed to refer to. If it is the
folder where the file with the code resides, then use

strLocation = Thisworkbook.Path

--
Regards,
Tom Ogilvy

"Ed" wrote in message
...
I burn a set of files - an Excel workbook and several Word documents - to
a
CD. All the files are in the same folder. I have hyperlinks in the
workbook to the Word docs that work fine, no matter what the CD drive
letter
of the individual computer is.

But I also have a search function that returns the names of documents
matching the search criteria. It works fine on my computer, and fine on a
network drive. But I'm having trouble telling the function to look at
"this
folder" on whatever drive it happens to be on. If anyone has suggestions,
I
would appreciate it. The relevant parts of the code a

Dim strLocation As String
strLocation = "This Folder"

strName = Range("D3").Text

With Application.FileSearch
.NewSearch
.LookIn = strLocation
.SearchSubFolders = False
.TextOrProperty = strSearchFor
.Filename = "L5-" & strName & "*.doc"
.Execute

TIA
Ed

That was it, Tom. Thank you once again.

Ed

"Tom Ogilvy" wrote in message
...
It isn't clear what "this folder" is supposed to refer to. If it is the
folder where the file with the code resides, then use

strLocation = Thisworkbook.Path

--
Regards,
Tom Ogilvy

"Ed" wrote in message
...
I burn a set of files - an Excel workbook and several Word documents -
to
a
CD. All the files are in the same folder. I have hyperlinks in the
workbook to the Word docs that work fine, no matter what the CD drive
letter
of the individual computer is.

But I also have a search function that returns the names of documents
matching the search criteria. It works fine on my computer, and fine on
a
network drive. But I'm having trouble telling the function to look at
"this
folder" on whatever drive it happens to be on. If anyone has
suggestions,
I
would appreciate it. The relevant parts of the code a

Dim strLocation As String
strLocation = "This Folder"

strName = Range("D3").Text

With Application.FileSearch
.NewSearch
.LookIn = strLocation
.SearchSubFolders = False
.TextOrProperty = strSearchFor
.Filename = "L5-" & strName & "*.doc"
.Execute

TIA
Ed