ダブルクリックしなくていい方法

質問

アイコンをダブルクリックしなくても開ける方法を教えてください。

回答No.3

Dotyrol · ベストアンサー

まず、適当なフォルダを開いておきます。

上部にあるメニューから、ツール→フォルダオプションを開き、
「全般」タブにある「クリック方法」項目で「ポイントして選択し、
シングルクリックで開く」を選択します。適用若しくはOKを押して完了です。

参考URL：

http://support.microsoft.com/kb/915109/ja

回答No.7

marbin

#5、6です。
Office関連ファイルにも対応させました。

Dim FSO
Dim objArgs
Dim FPath
Dim MyObject
Dim Ex
Set FSO = CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
FPath = objArgs(I)
If FSO.Fileexists(FPath) Then
If FSO.GetExtensionName(FPath) = "xls" Then
Set MyObject = Wscript.CreateObject("Excel.Application")
With MyObject
.Workbooks.Open (FPath)
.Visible = True
End With
ElseIf FSO.GetExtensionName(FPath) = "doc" Then
Set MyObject = Wscript.CreateObject("Word.Application")
With MyObject
.Documents.Open (FPath)
.Visible = True
End With
Else
Set Ex = CreateObject("Shell.Application")
Ex.Open FPath
End If
Else
Set Ex = CreateObject("Shell.Application")
Ex.Open FPath
End If
Next
Set FSO = Nothing
Wscript.Quit

回答No.6

marbin

#5です。

Office関係のファイル(.xls,.docなど)は
＃5で提示したVBSにドラッグ＆ドロップで開かないようです。
別途アプリケーションのオブジェクトを生成して開いてやる
必要があるようです。

回答No.5

marbin

VBSにドラッグ＆ドロップで開くとか。
テキストエディタに貼り付け、拡張子を「vbs」で
保存

Dim objArgs
Dim Ex
Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
Set Ex = CreateObject("Shell.Application")
Ex.Open objArgs(I)
Next
Wscript.Quit

回答No.4

enraku-5th

なぞなぞですか？
・スタートメニューに登録し、スタートボタンからシングルクリック
・アイコンを右クリック　→　開く
・アイコンにショートカットキーを割り当てる
・スタートメニュー　→　ファイル名を指定して実行　→　目的のプログラムをフルパスで入力
・常駐のランチャーとかマウスジェスチャーのツールなんかをインストールして目的のプログラムを登録

回答No.2

pasocom

「エクスプローラー」を開いてツールバーから「表示」＞「フォルダオプション」＞「全般（タブ）」＞「Webスタイル（シングルクリック）」を選んで下さい。

回答No.1

koko_u_

シングルクリックしてからキーボードの Enter キーを叩く