| |
こんにちは よろしくお願いいたします
アドレスバー非表示
フォルダペイン表示
タイトルバー非表示
でエクスプローラを開きたいです
Sub Macrotest1()
Dim objExplorer As Object
Set objExplorer = CreateObject("Wscript.Shell")
objExplorer.Run "explorer.exe /e,c:"
End Sub
では アドレスバー非表示用のスイッチは無いようです
Sub Macrotest2()
Dim objExplorer As Object
Dim strWebSite As String
Set objExplorer = CreateObject("InternetExplorer.Application")
strWebSite = "c:"
objExplorer.Navigate strWebSite
objExplorer.StatusBar = False
objExplorer.AddressBar = False
objExplorer.Document.CurrentViewMode = 4 '詳細
objExplorer.Visible = 1
End Sub
では ウインドウペインが表示されません
また、どちらもタイトルバーが表示されてしまいます
アドバイスよろしくお願いいたします
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
