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

从Access，如何只知道部分文件夹名称打开Windows资源管理器文件夹？

1 个答案: