http://winofsql.jp/wsf/folder_size.wsf 拡張子:txtvbswsfjsphpjavahtmlutf8sjis <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 / 1024) / 1024),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>
<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 / 1024) / 1024),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>