Добрый день.

Хочу автоматизировать ежедневную рутинную работу по импорту всех файлов из указанной папки в документ Corol. Сложность заключается в том, что мне необходимо каждый закинутый объект подписать названием файла.

Я разобрался как импортировать с помощью макроса один файл и подписать его.

Не получается реализовать перебор всех файлов в указанной папке. Т. е. мне нужно получить текстовую переменную названия файла. В интернете нашел информацию по VB по перебору файлов, но некоторые классы в макрасах Corol'а не работают.

Вопрос. Можно ли в макрасе Corol'а организовать перебор файлов в конкретной папке.
Если да - подскажите хотя бы какие основные процедуры и классы нужны, что бы реализовать это. Буду знать что искать в интернете.
Если нет - может подскажете как теоретически можно реализовать мою задачу другими методами.

Цитирую то, что нашел в интернете.

Чтобы узнать имена всех файлов надо воспользоваться методом GetFiles, классом Directory входящий в пространство имен System.IO.
В примере указано:

Imports System
Imports System.IO

Public Class Form1
Inherits System.Windows.Forms.Form

Windows Form Designer generated code

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Folder As Directory' Объявляем переменную Folder для работы с папками

и т.д.

Мой макрас начинается следующим образом

Sub Macro1()
Dim Folder As Directory

В данном случае ругается: User-Defined type not defined

Как я понял нужно подключить:
Imports System
Imports System.IO

Если я вставляю Imports System следующим образом:

Sub Macro1()
Imports System
Dim Folder As Directory

пишет Sub or Function not defined

Мне бы понять, как сделать так, что бы увидело System и System.IO. Дальше я бы разобрался. Может я описание не туда вставляю.

Огромное спасибо. Задачу по поиску файлов и их импорту в Corel решил. Не знал что VB.net это совсем другое.

Для тех, кому будет интересно. Возможно не все корректно, я с VB познакомился два дня назад.

Dim FSO
Dim TheFolder, TheFiles, AFile
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TheFolder = FSO.GetFolder("D:\TTT\")
Set TheFiles = TheFolder.Files

....

If UCase(FSO.GetExtensionName(AFile.Path)) = "JPG" Then
Set impflt = ActiveLayer.ImportEx(AFile, cdrJPEG, impopt)
impflt.Finish
End If