« IEウィンドウを擬似最大化に設定する。 | トップページ | 固定サイトショートカット(.website)のコンテキストメニューに「編集」、プロパティシートに「Webドキュメント」タブを追加する。 »

2012年1月29日 (日)

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

エクスプローラのインライン編集ボックスでのリネームでは、ショートカットの拡張子などが変更できません。
そこで、「名前の変更.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ドキュメント」タブを追加する。 »