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:CLMEnqueteAardappel

打印变量MyFile和OpenTime结果如下：

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

对此有什么看法吗？

Answer 1

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

folder = "D:CLMEnqueteAardappel"

或者，如果文件夹路径未硬编码，则为：

folder = folder & ""