Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Application.FileSearch | Excel Discussion (Misc queries) | |||
Application.FileSearch crashed Excel in Windows 2K | Excel Programming | |||
Application.FileSearch is not working?? | Excel Programming | |||
Application.Filesearch yields incorrect results?? | Excel Programming | |||
VBA Application.FileSearch | Excel Programming |