匹配部分文件夹名称在Access VBA

我试图以配合下面的代码的文件夹名称的一部分，但我得到这个消息：匹配部分文件夹名称在Access VBA

运行时错误“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

在上面的例子中使用通配符并不第二varaible设置为vbDirectory后甚至工作。

是否有任何其他方式来匹配部分VBA代码中的文件夹名称？

来源

2013-11-28 Kalimah Apps

你是不是想用这个做或搜索？或者你想要完成什么？ – Kairan

你有两个连续的\在你的道路上。 'fullFolderPath'已经有一个终止反斜杠。 –

@Kairan我正在试图找到该文件夹并将其打开。文件夹名称将包括formID和其他数字和字母。 –

您需要使用*.*作为通配符，像这样：

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

来源

2013-11-28 03:11:25 cha

我试过了，它不起作用。 –

我刚刚在我的Access中试过。你确定'folderfullPath＆“\ folders \”＆folderName'是一个有效的路径吗？ – cha

谢谢你。我再次检查了代码，它工作正常。问题是在folderName结尾的斜线。我从代码中删除了它，它完美地工作。 –

匹配部分文件夹名称在Access VBA

回答

相关问题