Autres tester si le fichier est dans un dossier system

[patricktoulon]

Bonjour à tous
avec les recentes mises du creatorRibbonX qui sera publiée entre le 15 et 31 mars 2026
mises à jours dues au fait que win 11 et plus drastiques en terme de securité
et dues aussi au fait que certains utilisateurs ne font pas les premières manip nécessaire a son bon fonctionnement (ils écoutent jamais )

je cherche une solution pour lancer un avertissement au cas ou le creatorRibbonX se trouve dans un dossier de windows
du genre downloads ou desktop ou document et autres

si dans un dossier system alors message et fermeture
comment faire ce test en un coup

 

[patricktoulon]

re
excusez du dérangement j'ai repris un de mes vieux trucs avec shellapplication+namespaces
je balaye assez large dans les dossiers système

Sub test()
    MsgBox IsInSafeFolder(ThisWorkbook.Path)
End Sub

Function IsInSafeFolder(lpath As String) As Boolean
    'patricktoulon
    'cette fonction permet de dire si le path (lpath) est un dossier system ou pas
    Dim sheLLo As Object, syspath$, i%
    Set sheLLo = CreateObject("Shell.Application")
    IsInSafeFolder = True
     lpath = Trim(LCase(lpath))
     For i = 0 To 50
        On Error Resume Next
        syspath = sheLLo.Namespace(i).Self.Path
        If Err.Number <> 0 Then
            Err.Clear
        Else
            If lpath = LCase(Trim(syspath)) Then
                IsInSafeFolder = False
                Set sheLLo = Nothing
                Exit Function
            End If
        End If
    Next
    On Error GoTo 0
    Set sheLLo = Nothing
End Function

 

[nullosse]

je cherche une solution pour lancer un avertissement au cas ou le creatorRibbonX se trouve dans un dossier de windows
du genre downloads ou desktop ou document et autres

si dans un dossier system alors message et fermeture
comment faire ce test en un coup

Salut,
les dossiers Downloads desktop et documents sont plutôt des dossiers utilisateur non ?
Nullosse