5

我正在尝试遍历给定目录以查找最新下载的 csv 文件。由于某种原因，即使文件确实存在，我的 Dir 函数也找不到任何文件。我对 VBA 并不完全熟悉，所以我可能缺少执行 Dir 功能的某种参考，但我在网上找不到任何告诉我需要的东西。所有的例子和论坛都像我一样使用 Dir，但我不能让我的工作。这是代码，如果你能看到我做错了什么，请告诉我：

Public Function Get_File() as string
   Dim filePath As String

   ChDir ("..")
   filePath = CurDir
   'Goes back to Documents directory to be in same directory as macro
   ChDir (filePath & "\Documents")
   filePath = filePath & "\Downloads\test.txt" 
   filePath = getLatestFile(filePath)

   Get_File = filePath
End Function

Public Function getLatestFile(pathToFile As String) As String
   Dim StrFile As String
   Dim lastMod As Variant
   Dim nextMod As Variant
   Dim lastFileName As String

   StrFile = Dir(pathToFile)
   lastFileName = StrFile
   lastMod = FileDateTime(StrFile)
   While Len(StrFile) > 0
       Debug.Print StrFile
       StrFile = Dir
       nextMod = FileDateTime(StrFile)
       If nextMod > lastMod Then
           lastFileName = StrFile
           lastMod = nextMod
       End If
   Wend

   getLatestFile = lastFileName
End Function

test.txt 文件在我的下载文件中，并且 filePath 字符串打印出来是正确的路径，但我不断收到一条错误消息，指出它找不到该文件。首次使用 Dir(pathToFile) 时失败。任何帮助将不胜感激。

4

1 回答 1

5

Dir()只返回路径的文件名部分，即不返回文件夹部分。例如，

Dir("C:\MyPath\MyFile.txt")

MyFile.txt不返回C:\MyPath\MyFile.txt

于 2012-07-26T18:15:56.710 回答