Fermer automatiquement les fichiers ouverts dans un répertoire spécifique

Question

Est-il possible à l'aide de VBA pour fermer tous les fichiers ouverts dans un répertoire donné, avec en sachant nom de fichier/etc ... l'extension

EDIT .....

J'ai des répertoires liés aux enregistrements, par exemple l'enregistrement pour Joe Bloggs a un répertoire créé lié au nom par exemple Bloggs, Joe

Si l'utilisateur change les noms des enregistrements, le nom du dossier doit donc refléter cela.

Actuellement, je peux changer le nom du répertoire sans problème si tous les fichiers associés sont fermés. Aussi, si ces fichiers sont ouverts, je peux inviter l'utilisateur à fermer les fichiers associés.

Je me demandais s'il serait possible de fermer/inviter à enregistrer les fichiers?

EDIT DE NOUVEAU .....

Pour compliquer encore les choses, il y a d'autres répertoires dans l'arborescence des répertoires qui se rapportent à chaque enregistrement. (Je aurais dû être plus clair au début, la base de données stocke les informations sur les réclamations d'assurance des ménages)

Vous avez donc une structure de répertoire comme ceci:

Nom d'utilisateur _ID \ 1ère ligne d'adresse de la propriété _ID \ RÉCLAMATION No _ID

Merci à l'avance pour toute aide

Vive

Noel

Answer 1

Je pense que vous pouvez unco mplifier cette chose. Votre table Utilisateurs doit avoir une clé primaire, user_id. L'ID utilisateur de Joe Bloggs est 27. Créez le dossier pour lui sous le nom C: \ userdirs \ 27. Si le nom de Joe est modifié plus tard, son id_utilisateur et son dossier utilisateur peuvent rester les mêmes.

Si vos utilisateurs ont besoin d'accéder à ces dossiers par leur nom d'utilisateur plutôt que par user_id, créez des raccourcis pour ceux-ci.

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 

Ensuite, vous pouvez créer un raccourci vers le répertoire utilisateur de Joe Bloggs comme ceci:

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