2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« 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ドキュメント」タブを追加する。 »