Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Filesearch : .zip files not found ???
Hi all,
I've got a problem with this piece of code, which lists the contents of a directory (thanks Ron de Bruin). It works fine with all but zip files. Files with .zip extension are not found, not counted ... why the hell ??? (Excel 2003, XP Pro) thanks for your help ! Sub test2() Dim i As Long With Application.FileSearch .NewSearch .LookIn = "c:\Data" .SearchSubFolders = False .MatchTextExactly = False .FileType = msoFileTypeAllFiles If .Execute 0 Then MsgBox "There were " & .FoundFiles.Count & " file(s) found." For i = 1 To .FoundFiles.Count Cells(i, 1).Value = .FoundFiles(i) Cells(i, 2).Value = FileDateTime(.FoundFiles(i)) Cells(i, 3).Value = FileLen(.FoundFiles(i)) Next i Else MsgBox "There were no files found." End If End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Filesearch : .zip files not found ???
Hi
There are some problems with Application.FileSearch in Excel 2002/2003 with WinXP You can use the Dir function (always working) Sub TestFile() Dim rnum As Long Dim FNames As String Dim MyPath As String Dim SaveDriveDir As String SaveDriveDir = CurDir MyPath = "C:\Data" ChDrive MyPath ChDir MyPath FNames = Dir("*.*") If Len(FNames) = 0 Then MsgBox "No files in the Directory" ChDrive SaveDriveDir ChDir SaveDriveDir Exit Sub End If Application.ScreenUpdating = False rnum = 1 Do While FNames < "" ActiveSheet.Cells(rnum, "A").Value = FNames rnum = rnum + 1 FNames = Dir() Loop ChDrive SaveDriveDir ChDir SaveDriveDir Application.ScreenUpdating = True End Sub -- Regards Ron de Bruin http://www.rondebruin.nl "Benoît HUBERT" wrote in message ... Hi all, I've got a problem with this piece of code, which lists the contents of a directory (thanks Ron de Bruin). It works fine with all but zip files. Files with .zip extension are not found, not counted ... why the hell ??? (Excel 2003, XP Pro) thanks for your help ! Sub test2() Dim i As Long With Application.FileSearch .NewSearch .LookIn = "c:\Data" .SearchSubFolders = False .MatchTextExactly = False .FileType = msoFileTypeAllFiles If .Execute 0 Then MsgBox "There were " & .FoundFiles.Count & " file(s) found." For i = 1 To .FoundFiles.Count Cells(i, 1).Value = .FoundFiles(i) Cells(i, 2).Value = FileDateTime(.FoundFiles(i)) Cells(i, 3).Value = FileLen(.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 | |||
Creating a list of found files | Excel Programming | |||
FileSearch dislikes Zip-files | Excel Programming | |||
FileSearch doesn't find zip files | Excel Programming | |||
FileSearch dislikes Zip-files | Excel Programming | |||
FileSearch dislikes Zip-files | Excel Programming |