人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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

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


●質問者: kitamati
●カテゴリ:コンピュータ
✍キーワード:EXPLORER Microsoft ng アプリケーション インストール
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● bmax
●35ポイント

下記のコードをメモ帳などに貼り付けて、(任意の名前).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でも同様に動作すると思われますが

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

◎質問者からの返答

うーん?

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

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


2 ● mj99
●60ポイント

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
◎質問者からの返答

表示できました。

ありがとうございました

質問を締め切ります

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ