ファイルやフォルダを「送る」ことでリネームする。

エクスプローラのインライン編集ボックスでのリネームでは、ショートカットの拡張子などが変更できません。
そこで、「名前の変更.vbs」に送ることでリネームします。

名前の変更.vbs ファイルやフォルダ...

Set fso=CreateObject("Scripting.FileSystemObject")
For Each path In WScript.Arguments
  If fso.FileExists(path) Then
    Set file=fso.GetFile(path)
  Else
    Set file=fso.GetFolder(path)
  End If
  name=InputBox(file.Path,"Rename ?",file.Name)
  If name<>"" Then file.Name=name
Next

sendtoフォルダに入れて使います。