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

Question

Можно ли получить все файлы (например, изображения jpg) из определенной папки без использования метода openfiledialog в скрипте лотоса? В скрипте лотоса мы можем указать путь к файлу в жестком коде.

Answer 1

Ты можешь использовать Dir получить все файлы из папки:

Dim pathName As String
Dim fileName As String
pathName = "C:\yourFolder\"
fileName = Dir(pathName + "*.jpg", 0)
Do While fileName <> ""
    Print pathName + fileName
    fileName = Dir()
Loop

Этот пример кода печатает все ваши файлы jpg из yourFolder как

C:\yourFolder\a.jpg
C:\yourFolder\b.jpg
C:\yourFolder\c.jpg

Оттуда вы можете использовать список, чтобы прикрепить файлы к документу или все, что вы хотите сделать с файлами.

Здесь вы можете найти описание.