AlexM
18-02-2010, 07:34
Код Excel VB Application.FileSearch не захватывает zip файлы.
Пишут, что zip файлы XP видит как директории, однако FileSearch не находит файлы внутри zip (засада, меня бы и это устроило). Поискал в инете и нашел что проблему поднимали и рекомендовали юзать Dir или CreateObject("Scripting.FileSystemObject").GetFolder().
Однако ни том ни в другом случае нет захвата поддиректорий.
Кто знает есть ли другое решение проблемы? Я на Excel 2002-2003, может в более новых версиях такой проблемы нет?
Ниже прилагаю код кто захочет попробовать, положив в ПАПКА один файл типа zip.
Спасибо!
With Application.FileSearch
.NewSearch
.LookIn = "ПАПКА..."
.SearchSubFolders = True
'.Filename = "Run"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End With
With Application.FileSearch
If .Execute() > 0 Then
MsgBox "есть zip-ы!"
end if
end with
Пишут, что zip файлы XP видит как директории, однако FileSearch не находит файлы внутри zip (засада, меня бы и это устроило). Поискал в инете и нашел что проблему поднимали и рекомендовали юзать Dir или CreateObject("Scripting.FileSystemObject").GetFolder().
Однако ни том ни в другом случае нет захвата поддиректорий.
Кто знает есть ли другое решение проблемы? Я на Excel 2002-2003, может в более новых версиях такой проблемы нет?
Ниже прилагаю код кто захочет попробовать, положив в ПАПКА один файл типа zip.
Спасибо!
With Application.FileSearch
.NewSearch
.LookIn = "ПАПКА..."
.SearchSubFolders = True
'.Filename = "Run"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End With
With Application.FileSearch
If .Execute() > 0 Then
MsgBox "есть zip-ы!"
end if
end with