Question

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

运行时错误“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代码中的部分文件夹名称？

Answer 1

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

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

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

1 个答案: