View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Ed[_9_] Ed[_9_] is offline
external usenet poster
 
Posts: 194
Default Pointing search function to "This Drive"?

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