匹配部分文件夾名稱在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

回答

相關問題