Thread
:
Cannot assign value to Filesearch.Lookin
View Single Post
#
4
Posted to microsoft.public.excel.programming
QQExcel
external usenet poster
Posts: 6
Cannot assign value to Filesearch.Lookin....still not working
I changed my code as following, but still nor working....
FilePath = ThisWorkbook.Path & "\Phase1_Comments\"
Set FS = Application.FileSearch
With FS
.LookIn = FilePath
.FileName = FileSpec
.Execute
If .FoundFiles.Count = 0 Then
MsgBox "No files were found, ...."
Exit Sub
End If
End With
ThisWorkbook.Path is as http"//servername/.../
.LookIn is still as C:\documents and settings\ after running.
Thanks a lot!
regards,
Christine
(QQExcel) wrote in message . com...
Hello, everone,
I just posted this and something wrong w/ my computer, sorry if I post
it twice.
I have a problem with assiging file path to .LookIn. I saw couple
messages regard to it but still don't get it. Any help would
appreciate.
Here is my code:
FilePath = ThisWorkbook.Path & "\Phase1_Comments\"
Set FS = Application.FileSearch
With FS
.LookIn = """" & FilePath & """"
.FileName = FileSpec
.Execute
If .FoundFiles.Count = 0 Then
MsgBox "No files were found, ...."
Exit Sub
End If
End With
ThisWorkbook.Path is as http"//servername/.../
.LookIn is still as C:\documents and settings\ after running.
This code is in workbook event - SheetFollowHyperlink
My excel is 2000.
Thanks a lot!
Reply With Quote
QQExcel
View Public Profile
Find all posts by QQExcel