Как с помощью VBA проверить, скрыты ли в проводнике Windows расширения файлов известных типов?
-
19-09-2019 - |
Вопрос
Не открывая проводник Windows.Я хочу проверить это с помощью Word VBA.
Спасибо.
РЕДАКТИРОВАТЬ:
Этот код работает сейчас:
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
Решение
Вам необходимо запросить значение реестра
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt
Расширения отображаются, если это значение равно 0, и скрыты, если оно равно 1.
Вы можете использовать RegRead метод объекта WshShell, чтобы прочитать это значение.Вы можете добавить ссылку на библиотеку типов объектной модели узла сценариев Windows в свой проект VBA, чтобы обеспечить строгую типизацию при использовании объекта WshShell.
Не связан с StackOverflow