File searh *.cab

[Paul Ho]

Hello,
I have *.cab file c:\temp. But why I couldn't search *.cab with below code
?It shown me all files but excluded *.cab? Please help, thanks.

With Application.FileSearch
.LookIn = "C:\temp"
.Filename = "*.*"
.SearchSubFolders = True

If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then

MsgBox "Number of *.txt was found: " & .FoundFiles.Count
Debug.Print "---Number of file found : " & .FoundFiles.Count

For i = 1 To .FoundFiles.Count
Debug.Print .FoundFiles(i)
Next i

Else 'exit program if no file was found
MsgBox "There were no files was found! Please check"
End
End If

End With

 

[Tom Ogilvy]

worked fine for me in Windows XP, Excel 2003

C:\Program Files\OfficeUpdate11\500200_0x00000409.des
C:\Program Files\OfficeUpdate11\500200_bitmask.as
C:\Program Files\OfficeUpdate11\500200_inventory.as
C:\Program Files\OfficeUpdate11\ident.cab
C:\Program Files\OfficeUpdate11\ident.ini
C:\Program Files\OfficeUpdate11\oudetect.cab
C:\Program Files\OfficeUpdate11\oudetect.dll

There have been reports of fileSeach being flakey on some types of files or
flakey in general and it has been removed in xl2007.

Try using the dir command.

 

[Paul Ho]

Hi, Tom,

Thanks for you help.

worked fine for me in Windows XP, Excel 2003

C:\Program Files\OfficeUpdate11\500200_0x00000409.des
C:\Program Files\OfficeUpdate11\500200_bitmask.as
C:\Program Files\OfficeUpdate11\500200_inventory.as
C:\Program Files\OfficeUpdate11\ident.cab
C:\Program Files\OfficeUpdate11\ident.ini
C:\Program Files\OfficeUpdate11\oudetect.cab
C:\Program Files\OfficeUpdate11\oudetect.dll

There have been reports of fileSeach being flakey on some types of files or
flakey in general and it has been removed in xl2007.

Try using the dir command.