2018年10月
  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 31      
無料ブログはココログ

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

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

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