ファイルやフォルダを「送る」ことでリネームする。
エクスプローラのインライン編集ボックスでのリネームでは、ショートカットの拡張子などが変更できません。
そこで、「名前の変更.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フォルダに入れて使います。
« IEウィンドウを擬似最大化に設定する。 | トップページ | 固定サイトショートカット(.website)のコンテキストメニューに「編集」、プロパティシートに「Webドキュメント」タブを追加する。 »