Поиск примера кода VBA для обработки файлов по маске для названия файла.

Пользователь

Сообщений: 2 Регистрация: 09.04.2015

10.04.2015 10:27:16

Форумчане! Не смог найти примера кода VBA для обработки файлов по маске для названия файла. Пользуюсь WinRar, Shell(... Возможно ли прописать аргумент так, чтобы в архив попадали только файлы выбранные по маске? Например все *.xls, или все, имя которых начинается символами: "01_15". Кроме того, как решить проблему обновления существующего в архиве файла новым, с тем же именем, но позже созданным?

Sanja

Модератор

Сообщений: 16516 Регистрация: 10.01.2013

10.04.2015 10:58:18

Цитата
Camanya написал: Например все *.xls,

вариант

Код

Dim strDirPath, strMaskSearch, strFileName As String
strDirPath = "C:/test/" 'Папка поиска
strMaskSearch = "*.xls*" 'Маска поиска - все файлы xls(x,m,b)
 
'Получаем первый файл соответствующий шаблону
strFileName = Dir(strDirPath & strMaskSearch)
 
Do While Filename <> "" 'До тех пор пока файлы "не закончатся"
    ' код, который что-то делает с файлом
    Filename = Dir 'Следующий файл
Loop

Согласие есть продукт при полном непротивлении сторон

МВТ Пользователь Сообщений: 1198 Регистрация: 01.02.2015	#3 10.04.2015 12:18:32 Попробуйте посмотреть здесь. Вроде, -e[+]<атр> - задать исключение или включение файлов из/в обработку по маске атрибутов

The_Prist Пользователь Сообщений: 14895 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#4 10.04.2015 12:55:20 Просмотреть все файлы в папке Архивация/Извлечение из архива через VBA Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...