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

Question

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

1. 定义一个变量（文件路径），该变量等于目标文件夹中唯一文件的URL
2. 如果有多个文件，请显示一个msgbox框（＆＃34;目标文件夹中存在多个文件，请删除过时的文件＆＃34;）

无法找到任何相关内容。帮助赞赏！

Answer 1

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

http://www.techonthenet.com/access/functions/file/dir.php

Answer 2

以下内容适合您

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