ショートカットを作ったときに

質問

ショートカットを作ったときに「新しいショートカットはデスクトップ上に置かれます。」というのを表示させないようにするにはどうすればいいのでしょうか？

回答No.2

ittochan · ベストアンサー

無理だと思いますよ。

SendToフォルダに↓のスクリプト(VBS)を保存しては？

' VBScript.
Set Shell = CreateObject("WScript.Shell")
Set objArgs = WScript.Arguments
if objArgs.Count=0 then
Shell.Popup "ショートカットを作れません",,,16
WScript.Quit
end if
DesktopPath = Shell.SpecialFolders("Desktop")
'デスクトップへショートカットを作成
Set link = Shell.CreateShortcut(DesktopPath + "\" + GetFileName(objArgs(0)) + "へのショートカット.lnk")
With link
'リンク先のファイルパス
.TargetPath = objArgs(0)
'起動時の大きさ 1=通常 3=最大化 7=最小化
.WindowStyle = 1
'ショートカットキー
' .Hotkey =
'コメント
' .Description =
'アイコンの所在
.IconLocation = objArgs(0)
'作業フォルダ
.WorkingDirectory = GetPathName( objArgs(0))
'リンク先のコマンドラインオプションの追加
.Arguments = ""
.Save
End With
Function GetFileName( HullPathFileName )
GetFileName = mid( HullPathFileName ,InStrRev(HullPathFileName , "\")+1,len(HullPathFileName ))
end Function
Function GetPathName( HullPathFileName )
GetPathName = mid( HullPathFileName ,1,InStrRev(HullPathFileName , "\",-1,1)-1)
end Function

注）
すでに同じ名前のショートカットがある場合は上書きされます。(手抜きしてます。)

お礼

難しすぎてよく分かりません。
分からなかったらまた今度質問します。

回答No.1

eboshiiwa

こんにちは。

自信はありませんけど・・・

デスクトップで右クリック→新規作成→テキスト文書→新規作成されたアイコンの名前を下記のように変更します。
「デスクトップにショートカットを作成.desklink」

拡張子を変更すると云々・・・と警告が出ますが構わず変更します。

するとデスクトップに「デスクトップにショートカットを作成」アイコンが出来ます。
そのアイコンに何かファイルをドラッグしてください。
それで例の警告（「新しいショートカットはデスクトップ上に置かれます。」）が表示されるか試してください。

もし表示されなければ現在の「デスクトップにショートカット」アイコン（右クリックの送るメニューのことだと思うので「SendTo」フォルダ内の）と入れ替えて様子を見てください。

私の手元にWindows98が無いので検証してません。
実行する場合は自己責任で実行してください。

**************
ショートカットを作成したいファイル（アイコン）を右クリックしながらデスクトップにドラッグの方が簡単に作成できると思いますよ。

お礼

回答ありがとうございました。
やってみたけど出来ませんでした。
諦めます。