2017年9月
          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
無料ブログはココログ

« デスクトップのアイコンを更新日時の昇順にソートする。 | トップページ | エクスプローラでファイルとフォルダを区別せずソートする。 »

2010年10月31日 (日)

開いているフォルダの自動整列を切り換える。

ToggleAutoArrange.vbs

Const  FWF_AUTOARRANGE=&H00000001
For Each ie In CreateObject("Shell.Application").Windows()
  If InStr(LCase(ie.FullName),"\explorer.exe") Then
    ie.Document.FolderFlags=CLng(ie.Document.FolderFlags) Xor FWF_AUTOARRANGE
  End If
Next

OnAutoArrange.vbs

Const  FWF_AUTOARRANGE=&H00000001
For Each ie In CreateObject("Shell.Application").Windows()
  If InStr(LCase(ie.FullName),"\explorer.exe") Then
    ie.Document.FolderFlags=CLng(ie.Document.FolderFlags) Or FWF_AUTOARRANGE
  End If
Next

OffAutoArrange.vbs

Const  FWF_AUTOARRANGE=&H00000001
For Each ie In CreateObject("Shell.Application").Windows()
  If InStr(LCase(ie.FullName),"\explorer.exe") Then
    ie.Document.FolderFlags=CLng(ie.Document.FolderFlags) And Not FWF_AUTOARRANGE
  End If
Next

« デスクトップのアイコンを更新日時の昇順にソートする。 | トップページ | エクスプローラでファイルとフォルダを区別せずソートする。 »