Con VBA, come posso controllare se, in Esplora risorse, le estensioni dei file per i tipi di file conosciuti sono nascosti?

Question

Senza aprire Esplora risorse di Windows. Voglio controllare per questo da Word VBA.

Grazie.

EDIT:

Questo codice funziona ora:

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

È necessario interrogare il valore di registro

  

HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Explorer \ Avanzate \ HideFileExt

Le estensioni sono mostrati se questo valore è 0 e nascosto se è 1.

È possibile utilizzare il RegRead metodo sull'oggetto WshShell a leggere questo valore. È possibile aggiungere un riferimento alla libreria di oggetti host tipo di modello di Windows Script nel tuo progetto VBA per ottenere la tipizzazione forte quando si utilizza l'oggetto WshShell.