Ms access 查找文件夹中文件的文件名和修改日期

我需要将数据从Excel文件自动导入Access。我有一个工作脚本，唯一的问题是文件名可能会更改（文件夹名不会更改），我需要弄清楚如何：

定义一个变量（filepath），该变量等于目标文件夹中唯一文件的URL

如果有多个文件，则显示msgbox框（“目标文件夹中存在多个文件，请删除过时文件”）

---

找不到任何相关信息。谢谢你的帮助

会建议您循环使用Dir函数来计算有多少个文件。如果只有一个，则返回Dir。如果更多，则显示您的messagebox

---

以下内容应该适合您

Set oFso = CreateObject("Scripting.FileSystemObject")
filepath = oFSo.GetAbsolutePathName(".")
Set myFolder = oFSo.GetFolder( filepath )

If myFolder.Files.Count > 1 Then

    MsgBox "Multiple Files exist in destination folder, please remove obsolete file"

Else

    for each myFile in myFolder.Files

        myFileName = myFile.Name

    next

    myFullFileName = filepath & "\" & myFileName    

End If

---

谢谢，很接近了，但是我如何定义一个等于filepath+filename的变量，这样我就可以运行数据导入脚本OK我只是稍微修改了代码以包含它。