サブフォルダ　一括サイズ管理(VBS)：遊ぶ大人の非常識 by きのこ組：SSブログ

	ブログをはじめるログイン

サブフォルダ　一括サイズ管理(VBS)　[スクリプト言語など] [編集]

「親フォルダー」を、このVBSファイルへ「ドラッグ&ドロップ」すると、サブフォルダーを検索し、サイズなどの全情報をテキストにリストアップしてくれます。　その際、サイズ０の空フォルダーも自動削除します。

VBSファイルの作り方は、例によって下のエリアのソースを「新規テキストファイル」へ丸ごとコピーし、「○○○.VBS」と変名保存するだけです。

'親フォルダーをドラッグします。
'サイズ 0 のサブフォルダーを削除します。
'各サブフォルダーを検出し、「 フォルダ名 | 平均サイズ | フォルダーサイズ/枚数 」のようにテキストにリストします。

Set objArgs = WScript.Arguments
For I = 0 to objArgs.Count - 1
ps = objArgs(I)
Next

Dim fso,Shell,fx,fb,fc,n,OL,MyFile,MyF,e1,f,s,x,space,Repath,WShell,Dt,list,ZROfo,f1MB
  Set fso = CreateObject("Scripting.FileSystemObject")
  'Set Shell = CreateObject("WScript.Shell")
         'Dt = Shell.SpecialFolders("Desktop")
  Set f = fso.GetFolder(ps)
  Set MyFile = fso.CreateTextFile(ps & "\" & f.name & ".html", True)

Set sf = f.SubFolders
   s=""
  MyFile.WriteLine("/// " & ps & " ////////////<base target='_blank'><pre>" )

For Each f1 in sf

if f1.size <= 0 then  
    Set ZROfo = fso.GetFolder(f1.Path)
        ZROfo.Delete
 else
    f1MB = f1.size/1048576
    fmb = Round(f1MB,2)
      s = f1.Name
      x = 0
    Set fc = f1.Files
        For Each f2 in fc
            t = t & f2.name
            x = x + 1
        Next

if x > 0 then
         a = Round(fmb/x,2)
      else
         a = Round(fmb/1,2)
      end if

if Len(Fix(a)) = 1 then
      if Len(a) = 1 then a = a&".00" end if
      if Len(a) = 3 then a = a&"0" end if
      if Len(s) <= 25 then 
         s = s & " _"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"
         s = Left(s,25) 
      end if
      if Len(s) > 25 then s = Left(s,25) end if
else
      if Len(s) <= 25 then 
         s = s & " _"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"&"_"
         s = Left(s,25) 
      end if
      if Len(s) > 25 then s = Left(s,25) end if
end if

MyFile.WriteLine( "<a href='" & ps & "\" & f1.Name & "'>" & s & "</a> [" & a & "] .."  & fmb & "mb/" & x &"枚" )
end if
Next
MyFile.WriteLine("</pre>" )
MyFile.Close

Set ie= WScript.CreateObject("InternetExplorer.Application")
ie.Navigate(ps & "\" & f.name & ".html")
ie.Width = 500
ie.Height= 300
ie.Visible = True
'msgbox "・・フォルダーリスト完了っす。(*^^)v"

一応、XP-SP3 で動作確認済みですが、エラー対策などしていません。そんな関係で取り扱いに関しては、責任負いかねますので、自己責任でお願い致します。

PS : 増え過ぎた「デジカメ庫ファイル」の管理に大活躍間違いなしｶﾓ・・(汗)。
フォルダー名の長さの格差が広がるにつれ、確認しぬくくなる部分を、バージョンアップ予定してます。^_^;

2008-05-30 02:36 nice!(2) コメント(1) トラックバック(0)