VBA从文件夹中打开文件。

Question

我正在尝试对特定文件夹中的coreldraw文件进行一些批处理。所以我需要的是从特定文件夹中打开文件，对其应用操作并关闭并打开下一个文件。

继承我使用的代码，它的工作，但它创造了无限 循环和应用程序正在崩溃。我目前只应用了文档打开操作。

Sub FileOpen()

Dim strFile As String
Dim strDir As String

strDir = "\\folderpath\"
strFile = Dir(strDir & "*.cdr")

Do While strFile <> ""

Application.OpenDocument (strDir & strFile)

Loop

End Sub