コメント |
http://winofsql.jp/wsf/folder_size.wsf
@DIV
<JOB>
<COMMENT>
************************************************************
WEB WSH 実行スケルトン
************************************************************
</COMMENT>
<COMMENT>
************************************************************
外部スクリプト定義
************************************************************
</COMMENT>
<SCRIPT
language="VBScript"
src="http://lightbox.in.coocan.jp/laylaClass.vbs">
</SCRIPT>
<SCRIPT language=VBScript>
' ***********************************************************
' 処理開始
' ***********************************************************
Call laylaFunctionTarget( "http://lightbox.in.coocan.jp/" )
Call laylaLoadFunction( "baseFunction.vbs" )
' ***********************************************************
' Cscript.exe で強制実行
' ***********************************************************
Crun
' **********************************************************
' 対象ディレクトリ
' **********************************************************
target = SelectDir( "対象フォルダを選択して下さい" )
if target = "" then
Wscript.Quit
end if
' **********************************************************
' ファイルシステムオブジェクト
' **********************************************************
GetFso
' **********************************************************
' フォルダオブジェクト取得
' **********************************************************
Set objFolder = Fso.GetFolder(target)
' **********************************************************
' サブフォルダコレクション取得
' **********************************************************
Set colSubFolder = objFolder.SubFolders
' **********************************************************
' 一覧
' **********************************************************
For Each obj in colSubFolder
on error resume next
Wscript.Echo Lpad(FormatNumber((Fix(obj.Size / 1000) / 1000),3)," ", 15) & " M : " & obj.Name
if Err.Number <> 0 then
Wscript.Echo obj.Name & ":" & Err.Description
end if
on error goto 0
Next
</SCRIPT>
</JOB>
@END
|