Всем добрый день!
И снова я за помощью.
Описание проблемы: открыть файл по маске. Существует постоянная папка в которой время от времени появляются файлы для работы макроса. После обработки они переносятся в другую папку (1541-шаблон.cdr, 1541-поля.txt, 1541-замены.txt). Появляются другие, например: 0277-шаблон.cdr, 0277-поля.txt, 0277-замены.txt
Задача: открыть макросом кореловский файл, и нужный текстовый файл для создания массива.
Получается запись типа "*-замены.txt" не является маской для открытия.
В инете находил решения для VBA.Net, Exel VBA, но для Corel-a не нашел. Плиз ХЕЛП, 3-ий день "борюсь"
И снова я за помощью.
Описание проблемы: открыть файл по маске. Существует постоянная папка в которой время от времени появляются файлы для работы макроса. После обработки они переносятся в другую папку (1541-шаблон.cdr, 1541-поля.txt, 1541-замены.txt). Появляются другие, например: 0277-шаблон.cdr, 0277-поля.txt, 0277-замены.txt
Задача: открыть макросом кореловский файл, и нужный текстовый файл для создания массива.
Код:
...
Dim doc As Document
Dim openopt As StructOpenOptions
----------- Путь к файлам -----------
PaFoS = "E:\Темп для скриптов\Для текстовых\"
---------------------------------------------
Set openopt = CreateStructOpenOptions
Set doc = OpenDocumentEx(PaFoS & "*-шаблон.cdr", openopt) 'Пишет нет такого файла
Open PaFoS & "*-замены.txt" For Input Access Read Shared As hFile 'Ошибка, не находит файл
...
Получается запись типа "*-замены.txt" не является маской для открытия.
В инете находил решения для VBA.Net, Exel VBA, но для Corel-a не нашел. Плиз ХЕЛП, 3-ий день "борюсь"