自动关闭特定目录中打开的文件

Question

是否可以在不知道文件名/扩展名等的情况下使用 VBA 关闭给定目录中所有打开的文件...

编辑.....

我有链接到记录的目录，例如 Joe Bloggs 的记录有一个与名称相关的目录，例如 Bloggs, Joe

如果用户更改记录名称，文件夹名称必须反映这一点。

目前如果所有关联文件都关闭，我可以更改目录名称没有问题。此外，如果这些文件已打开，我可以提示用户关闭相关文件。

我想知道是否可以关闭/提示保存文件？

再次编辑.....

为了使事情更加复杂，目录树中还有与每条记录相关的目录。 （我一开始应该更清楚，数据库存储家庭保险索赔信息）

所以你有一个这样的目录结构：

用户名_ID\物业地址第一行_ID\Claim No_ID

提前感谢您的帮助

干杯

诺埃尔

Answer 1

我认为你可以简化这件事。您的用户表应该有一个主键 user_id。假设 Joe Bloggs 的 user_id 是 27。为他创建文件夹 C:\userdirs\27。如果以后乔的名字被更改，他的 user_id 和用户文件夹可以保持不变。

如果您的用户需要通过用户名而不是 user_id 访问这些文件夹，请为他们创建快捷方式。

Public Function CreateUserDirShortcut(ByVal pLinkFolder As String, _
        ByVal pLinkName As String, _
        ByVal pTargetFolder As String) As Boolean

    Dim objShell As Object
    Dim objLink As Object
    Dim strMsg As String
    Dim blnReturn As Boolean

On Error GoTo ErrorHandler

    Set objShell = CreateObject("WScript.Shell")
    Set objLink = objShell.CreateShortcut(pLinkFolder & Chr(92) & pLinkName & ".lnk")
    objLink.Description = pLinkName
    objLink.TargetPath = pTargetFolder
    objLink.Save
    blnReturn = True

ExitHere:
    Set objLink = Nothing
    Set objShell = Nothing
    CreateUserDirShortcut = blnReturn
    On Error GoTo 0
    Exit Function

ErrorHandler:
    strMsg = "Error " & Err.Number & " (" & Err.Description _
        & ") in procedure CreateUserDirShortcut"
    MsgBox strMsg
    blnReturn = False
    GoTo ExitHere
End Function

然后您可以像这样创建 Joe Bloggs 用户目录的快捷方式：

CreateUserDirShortcut "C:\shortcuts", "Bloggs, Joe", "C:\userdirs\27")