Find Files

[Bill]

Hello,
I am using the following code to find a file on the C drive. The file is
there, but the code keeps saying no file was found. Any help? Thanks.

Sub test()

Set fs = Application.FileSearch
With fs
.LookIn = "C"
.Filename = "Fname.xls"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With


End Sub

 

[William]

Bill

Try inserting the following line after the ".LookIn" line in your code..

..-------
..SearchSubFolders = True
-------
--


XL2003
Regards

William
(e-mail address removed)

 

[Bill]

Thanks for your suggestion. Unfortunately that did not work.

 

[Jim Cone]

Bill,

Your code worked for me when I declared the two variables
and corrected the directory designation...
'-----------------
Dim fs
Dim i As Long
Set fs = Application.FileSearch
With fs
.LookIn = "C:\"
'---------------------

Jim Cone
San Francisco, USA


Hello,
I am using the following code to find a file on the C drive. The file is
there, but the code keeps saying no file was found. Any help? Thanks.

Sub test()
Set fs = Application.FileSearch
With fs
.LookIn = "C"
.Filename = "Fname.xls"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
MsgBox "There were " & .FoundFiles.Count & _
" file(s) found."
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
End Sub

 

[William]

Bill

Replace ".LookIn = "C" with ".LookIn = "C:"

--


XL2003
Regards

William
(e-mail address removed)

 

[Bill]

Thanks. That worked.