匹配 Access VBA 中的部分文件夹名称答案

【问题标题】：Match partial folder name in Access VBA匹配 Access VBA 中的部分文件夹名称
【发布时间】：2025-10-18 23:00:02
【问题描述】：

我正在尝试将文件夹名称的一部分与下面的代码匹配，但我收到此消息：

运行时错误“52”：文件名或编号错误。

这是我的代码：

Private Sub folderButton_Click()

   Dim folderName As String
   Dim folderfullPath As String

   folderName = Me.FormID

   folderfullPath = Application.CurrentProject.Path & "\"

    MsgBox Dir(folderfullPath & "\folders\" & folderName & "*", vbDirectory)

End Sub

即使在将第二个变量设置为 vbDirectory 之后，在上述示例中使用通配符也不起作用。

有没有其他方法可以匹配 VBA 代码中的部分文件夹名称？

【问题讨论】：

你想用它来做或搜索吗？或者你想要完成什么？
路径中有两个连续的 \。 fullFolderPath 已经有一个终止反斜杠。
@Kairan 我正在尝试找到该文件夹并将其打开。文件夹名称将包括 formID 和其他数字和字母。
@TimWilliams 终止反斜杠不是问题。只有当我使用通配符“*”时才会出现此错误。
你能提供一个实际的例子来告诉你错误吗？还值得尝试您正在测试的完整路径的 debug.print。

标签： ms-access vba

【解决方案1】：

您需要使用*.* 作为通配符，如下所示：

Dir(folderfullPath & "\folders\" & folderName & "*.*", vbDirectory)

【讨论】：

我刚刚在我的 Access 中尝试过。您确定folderfullPath & "\folders\" & folderName 是有效路径吗？
谢谢。我再次检查了代码，它工作正常。问题是文件夹名称末尾的斜杠。我从代码中删除了它，它运行良好。