Lotus脚本中的Openfiledialog方法替代

您可以用来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

此示例代码从yourFolder打印所有的jpg文件，例如

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

从那里，您可以使用列表将文件附加到文档或您要对文件执行的任何操作。

在这里您可以找到说明。