| |
おはようございます
とおりすぎさん ありがとうございます
うう 難しいそうですね
Abyssさん 消されてしまいましたが ありがとうございます
環境を書かずに申し訳ありませんでした
上記は、XP、2003で実行した結果です
Sub Macrotest2() は、vista・7では
objExplorer.Document.CurrentViewMode = 4 '詳細
で
実行時エラー '-2147467259 (80004005)':
'Document' メソッドは失敗しました: 'IWebBrowser2' オブジェクト
となり
空IEと、通常のコンピューターのエクスプローラの2ウインドウが開いてしまいました
Abyssさん ご提示のコードは
vista、2007では、アドレスバー付きでエクスプローラが
7、2010では、アドレスバー非表示でエクスプローラが表示されました
この辺の動作はOSの違いは無いのではないかと思っていましたが全然ちがっていました
ちなみに
ipconfigは、xp、vistaはc:\にCDしないと動きませんが
7はカレントディレクトリで動作しました
また、何をしたいか記載せずに申し訳ありませんでした
職場のPCリプレイス概ねXP→7をピア2ピアでデータ移行したい
この際、管理共有は非表示のままにしたい
です
で、ご提示頂いたAbyssさんのコードで希望の操作はかないそうですが
もう少し動作確認したいと思います
Abyssさんのコードを見たいと思っている方もいらっしゃると思うので
勝手で申し訳ないですがUPさせて頂きたいと思います
----------------------------------------------------------
以下、一式のコード。
Sub MacroTest3()
Const CLSID_FolderBar = "{EFA24E64-B078-11D0-89E4-00C04FC9E26E}"
Const FVM_DETAILS = 4&
Dim objExplorer As Object
Dim strWebSite As String
Set objExplorer = GetObject("new:{C08AFD90-F2A1-11D1-8455-00A0C91F3880}")
strWebSite = "c:\"
With objExplorer
.Navigate strWebSite
.StatusBar = False
.AddressBar = False
.Document.CurrentViewMode = FVM_DETAILS '詳細
.ShowBrowserBar CLSID_FolderBar, True
.Visible = 1
End With
End Sub
# 最前面に表示されない場合の処置はご自分でどうぞ。
----------------------------------------------------------
P2Pでのデータ移行等含めて、アドバイスあればよろしくお願いいたします
|
|
充実野菜
- 11/11/17(木) 8:41 -
