Help with Application.FileSearch method
 

I copied the code below right out of Excel VBA Help, changing only the
folder specified in ".Lookin" to "C:\Tsfr". I know this folder exists on my
computer and contains three .doc files. Therefore the code should report
three files found, but instead it erroneously reports no files found. Any
suggestions as to what's going on would be appreciated. Thanks.

Sub Filetest()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Tsfr"
.Filename = "*.doc"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
For Counter = 1 To .FoundFiles.Count
MsgBox .FoundFiles(Counter)
Next Counter
Else
MsgBox "There were no files found."
End If
End With
End Sub

Help with Application.FileSearch method
 

Hi roy

Try it with

.LookIn = "C:\Tsfr\"
.Filename = ".doc"


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Roy Harrill" wrote in message ...
I copied the code below right out of Excel VBA Help, changing only the folder specified in ".Lookin" to "C:\Tsfr". I know this
folder exists on my computer and contains three .doc files. Therefore the code should report three files found, but instead it
erroneously reports no files found. Any suggestions as to what's going on would be appreciated. Thanks.

Sub Filetest()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Tsfr"
.Filename = "*.doc"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
For Counter = 1 To .FoundFiles.Count
MsgBox .FoundFiles(Counter)
Next Counter
Else
MsgBox "There were no files found."
End If
End With
End Sub

Help with Application.FileSearch method
 

Ron,
Thanks for the reply. I tried that, but unfortunately got the same result.
BTW, I'm running Windows XP Pro SP2 and Excel 2003.
Roy


"Ron de Bruin" wrote in message
...
Hi roy

Try it with

.LookIn = "C:\Tsfr\"
.Filename = ".doc"
--
Regards Ron de Bruin
http://www.rondebruin.nl


"Roy Harrill" wrote in message
...
I copied the code below right out of Excel VBA Help, changing only the
folder specified in ".Lookin" to "C:\Tsfr". I know this folder exists on
my computer and contains three .doc files. Therefore the code should
report three files found, but instead it erroneously reports no files
found. Any suggestions as to what's going on would be appreciated.
Thanks.

Sub Filetest()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Tsfr"
.Filename = "*.doc"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
For Counter = 1 To .FoundFiles.Count
MsgBox .FoundFiles(Counter)
Next Counter
Else
MsgBox "There were no files found."
End If
End With
End Sub

Help with Application.FileSearch method
 

Hi Roy

There are more problems with FileSearch.
Use Dir instead or fill a array with file names

Maybe you can steal some code from this page.
http://www.rondebruin.nl/copy3.htm



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Roy Harrill" wrote in message ...
Ron,
Thanks for the reply. I tried that, but unfortunately got the same result.
BTW, I'm running Windows XP Pro SP2 and Excel 2003.
Roy


"Ron de Bruin" wrote in message ...
Hi roy

Try it with

.LookIn = "C:\Tsfr\"
.Filename = ".doc"
--
Regards Ron de Bruin
http://www.rondebruin.nl


"Roy Harrill" wrote in message ...
I copied the code below right out of Excel VBA Help, changing only the folder specified in ".Lookin" to "C:\Tsfr". I know this
folder exists on my computer and contains three .doc files. Therefore the code should report three files found, but instead it
erroneously reports no files found. Any suggestions as to what's going on would be appreciated. Thanks.

Sub Filetest()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Tsfr"
.Filename = "*.doc"
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) 0 Then
MsgBox "There were " & .FoundFiles.Count & " file(s) found."
For Counter = 1 To .FoundFiles.Count
MsgBox .FoundFiles(Counter)
Next Counter
Else
MsgBox "There were no files found."
End If
End With
End Sub

Help with Application.FileSearch method
 

Thanks again, Ron. I changed to using a Dir approach and everything works
fine. Looks like ole MS needs to do a little work on FileSearch. Do I look
surprised?
Roy

"Ron de Bruin" wrote in message
...
Hi Roy

There are more problems with FileSearch.
Use Dir instead or fill a array with file names

Maybe you can steal some code from this page.
http://www.rondebruin.nl/copy3.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl

"Roy Harrill" wrote in message
...
Ron,
Thanks for the reply. I tried that, but unfortunately got the same result.
BTW, I'm running Windows XP Pro SP2 and Excel 2003.
Roy

"Ron de Bruin" wrote in message
...
Hi roy

Try it with:
.LookIn = "C:\Tsfr\"
.Filename = ".doc"

--
Regards Ron de Bruin
http://www.rondebruin.nl

"Roy Harrill" wrote in message
...
I copied the code below right out of Excel VBA Help, changing only the
folder specified in ".Lookin" to "C:\Tsfr". I know this folder exists on my
computer and contains three .doc files. Therefore the code should report
three files found, but instead it erroneously reports no files found. Any
suggestions as to what's going on would be appreciated. Thanks.

Sub Filetest()
Set fs = Application.FileSearch
With fs
.LookIn = "C:\Tsfr"
.Filename = "*.doc"
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