VBAでは、どのように私は、知られているファイルの種類のファイル拡張子が隠されている、Windowsのエクスプローラで、かどうかを確認することができますか?
-
19-09-2019 - |
質問
Windowsエクスプローラを開くことなく。私は、Word VBAからこれを確認したい。
感謝します。
EDITます:
このコードは動作するようになりました。
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
解決
あなたは、レジストリ値を照会する必要があります。
それが1である場合、この値は0で隠されている場合は、ます。HKEY_CURRENT_USER \ Software \ Microsoft \ Windowsの\ CurrentVersionの\ Explorerの\詳細\ HideFileExt
の拡張が示されている。
あなたは RegRead の方法を使用することができますWshShellオブジェクトにこの値を読み取ります。あなたはWshShellオブジェクトを使用する場合、強い型付けを得るためにあなたのVBAプロジェクトにおけるWindowsスクリプトホストオブジェクトモデルのタイプライブラリへの参照を追加することができます。
所属していません StackOverflow