DIR函数检索文件，但不检索文件名

Question

我有以下代码：

Dim MyFile As String
MyFile = Dir(folder & "*.xl*")
MsgBox (MyFile)

Dim OpenTime As Date
OpenTime = FileDateTime(folder & MyFile)

其中folder是在不同模块中设置的公共字符串。并且它的值被检索为Application.FileDialog(msoFileDialogFolderPicker)

现在我遇到的问题是MsgBox (MyFile)返回一个空消息框，但OpenTime的值与所选文件夹中第一个文件的值一致。

这让我相信文件夹设置正确，我使用直接窗口确认：

debug.Print(folder)
D:\CLM\Enquete\Aardappel

打印变量MyFile和OpenTime会产生以下结果：

debug.print(MyFile)

debug.Print(OpenTime)
12-6-2018 15:04:18 

对此有何看法？

Answer 1

您的最终路径模式在文件名之前没有斜杠。将其更改为：

folder = "D:\CLM\Enquete\Aardappel\"

或者如果文件夹路径没有硬编码，请执行以下操作：

folder = folder & "\"