Avec VBA, comment puis-je vérifier si, dans l'Explorateur Windows, les extensions de fichiers pour les types de fichiers connus sont masquées?

Question

Sans ouvrir l'Explorateur Windows. Je veux vérifier cela à partir de Word VBA.

Merci.

EDIT:

Ce code fonctionne maintenant:

Set WshShell = CreateObject("WScript.Shell") 

If WshShell.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt") = 0 Then 
    MsgBox Prompt:="In Windows Explorer, set the folder options to hide file extensions of known file types." _ 
     & vbCrLf & vbCrLf & " This prevents the file extension from appearing as part of the document number in" _ 
     & "the document body and page headers.", Buttons:=vbOKOnly + vbCritical, Title:="Critical" 
End If 

Answer 1

Vous devez interroger la valeur de Registre

HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Explorer \ Avancé \ HideFileExt

Les extensions sont indiquées si cette valeur est ue vaut 0 et est masqué s'il est 1.

Vous pouvez utiliser la méthode RegRead sur l'objet WshShell pour lire cette valeur. Vous pouvez ajouter une référence à la bibliothèque de types de modèle d'objet hôte Windows Script dans votre projet VBA pour obtenir une typage fort lorsque vous utilisez l'objet WshShell.