在Access中，如何打開僅知道部分文件夾名稱的Windows資源管理器文件夾？

Question

我不完整的文件路徑存儲在Me!txtFilePath 。 它包含指向文件夾位置的完整路徑，以及文件夾名稱的前30個字符中的前9個。 保證前9個字符是唯一的。 目前，我有一個按鈕，單擊該按鈕即可執行以下代碼：

    Shell "explorer """ & Me!txtFilePath & "", vbNormalFocus

如果我沒有文件夾名稱的最后幾個字符，我如何確保它打開了正確的文件夾？ 謝謝！

編輯：我正在嘗試打開一個沒有“驅動器”的網絡文件夾。

Answer 1

我不確定為什么這種解決方案對我有效，而建議卻沒有，但是我找到了答案。 大部分都由我的原始帖子的評論者解決了-感謝大家。

基本上，我必須設置一個等於Dir值的字符串變量。 Dir僅返回文件夾名稱的結尾部分，而不是整個路徑，因此打開文件時，我需要將其與路徑名稱的已知開頭組合在一起。 我還必須使用Application.FollowHyperlink而不是Shell 。 我不知道為什么，也不知道是否有任何缺點。 也許Shell explorer僅適用於文件，不適用於文件夾。

Private Sub btnJobFile_Click()
    Dim strStartFilePath As String
    Dim strEndFilePath As String

    strStartFilePath = "\\JobFolders" & Me!txtFilePath
    strEndFilePath = Dir(strStartFilePath & Me.JobNum & "*", vbDirectory)

    Application.FollowHyperlink strStartFilePath & strEndFilePath
End Sub