FileSearch dislikes Zip-files
L.S.
FileSearch doesn't report zip-files. Executing the Macro you'll find below, does not list the zip-files that reside in the specified directory. Replacing the FileName "*.zip" by "*.*" lists all files except the zip-files. I've reviewed the contents of the collections PropertyTests and FileTypes, but could not get any results. Using the interactive version at the Excel-sheet, via the menu-options, I got the same results. Kind regards, Hub van de Laar Private Sub ListZipFiles() Dim FS As FileSearch, I As Integer With Application.FileSearch .NewSearch .LookIn = "D:\" .FileType = msoFileTypeAllFiles .Filename = "*.zip" .SearchSubFolders = True If .Execute 0 Then For I = 1 To .FoundFiles.Count Debug.Print .FoundFiles(I) Next I Else MsgBox "No Zip-files found." End If End With End Sub |
All times are GMT +1. The time now is 10:49 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com