Savoir si extensions masquées ou non

[YANN-56]

Bonsoir à tous, et meilleurs voeux (Surtout: Santé)

Dans mon appli, j'ai besoin de savoir si l'utilisateur
à, dans l'Option des Dossiers, coché ou non:
"Masquer les extensions des fichiers dont le type est connu"

J'ai une macro de mon cru qui fonctionne, mais "Lourde" !!!

Merci d'avance.

Yann

 

[PMO2]

Re : Savoir si extensions masquées ou non

Bonjour,

Le code ci-dessous devrait répondre à votre attente.

Copiez le code dans un module standard puis lancez la macro "State_HideFileExt".

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" _
        (ByVal Hkey As Long, _
         ByVal lpSubKey As String, _
         phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" _
        (ByVal Hkey As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" _
        (ByVal Hkey As Long, _
         ByVal lpValueName As String, _
         ByVal lpReserved As Long, _
         lpType As Long, _
         lpData As Any, _
         lpcbData As Long) As Long
Const HKEY_CURRENT_USER = &H80000001

Sub State_HideFileExt()
Dim Result&
Dim tempo&
Dim SizeBuffer&
Dim Buffer$
tempo& = RegOpenKey(HKEY_CURRENT_USER, _
    "SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced", Result&)
tempo& = RegQueryValueEx(Result&, "HideFileExt", 0, 0, ByVal 0, SizeBuffer&)
Buffer$ = Space(SizeBuffer&)
tempo& = RegQueryValueEx(Result&, "HideFileExt", 0, 0, ByVal Buffer$, SizeBuffer&)
tempo& = RegCloseKey(Result&)
Select Case AscW(Buffer$)
  Case 0
    MsgBox prompt:="L'option est décochée.", _
      Title:="Masquer les extensions des fichiers dont le type est connu"
  Case 1
    MsgBox prompt:="L'option est cochée.", _
      Title:="Masquer les extensions des fichiers dont le type est connu"
End Select
End Sub

Cordialement.

PMO
Patrick Morange