WindowsServer2003で以下の事が実行できるか教えて下さい。


デスクトップのショートカットを実行すると、特定のフォルダのプロパティをダイレクトに表示する

開く操作にこれ以上の手順はかけられません。極力シンプルな方法がベストです。
キーボード操作を組み合わせるのもNGです。マウスだけの操作でお願いします。
ショートカットを作成するなどの準備作業はかまいません。
アプリケーションのインストールもNGです(Microsoft製はOK)。

検索用:エクスプローラ Explorer プロパティ

回答の条件
  • 1人2回まで
  • 登録:2008/05/01 15:20:16
  • 終了:2008/05/02 09:24:11

回答(2件)

id:bmax No.1

bmax回答回数67ベストアンサー獲得回数162008/05/01 17:11:15

ポイント35pt

下記のコードをメモ帳などに貼り付けて、(任意の名前).vbsでデスクトップに保存してください。

保存したファイルをダブルクリックするとプロパティが表示されます。

※C:\WINDOWSは例です。任意のフォルダに書き換えてください。


Const foldername="C:\WINDOWS"
Set Win = WScript.CreateObject("Shell.Application")
Set wShell=CreateObject("WScript.Shell")
Win.NameSpace(foldername).Items.Item.InvokeVerb "プロパティ(&R)"
Do While wShell.AppActivate("のプロパティ")
    WScript.Sleep 100
Loop

WinXP SP2で動作確認しています。恐らくWindowsServer2003でも同様に動作すると思われますが

検証はできていませんのでご了承ください。

id:kitamati

うーん?

2台のXPSP2で試してみましたが何も起こりません。

wscript.exeが一瞬走るだけですね。

2008/05/01 20:27:33
id:mj99 No.2

mj99回答回数138ベストアンサー獲得回数382008/05/01 22:06:11

ポイント60pt

bmaxさんの回答でほぼ正しいと思いますが

ちょっと改良しました。

便乗でごめんなさい。

----

VBSのコード

Const foldername="C:\WINDOWS"

Set win = WScript.CreateObject("Shell.Application")
Set shell = CreateObject("WScript.Shell")

' プロパティ表示を実行
win.NameSpace(foldername).Items().Item.InvokeVerb "プロパティ(&R)"

' スクリプトが終わるとプロパティは消えてしまうのだ

' プロパティが表示されるまで待つ
Do Until shell.AppActivate("のプロパティ")
    WScript.Sleep 100
Loop

' プロパティが閉じられるまで待つ
Do While shell.AppActivate("のプロパティ")
    WScript.Sleep 100
Loop
id:kitamati

表示できました。

ありがとうございました

質問を締め切ります

2008/05/02 09:23:31
  • id:bmax
    Do While wShell.AppActivate("のプロパティ")
    の前の行に
    WScript.Sleep 1000
    を入れてみてください。


    プロパティのウインドウが開ききる前に次の処理に行ってしまって、ループ条件を抜けてしまっていたようです。
    検証時は他のアプリケーションを多数立ち上げていたため、気づきませんでした

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません