http://winofsql.jp を信頼するサイトに登録すると、「実行」で即実行可能です。 http://winofsql.jp/wsf/folder_size.hta 拡張子:txtvbswsfjsphpjavahtmlutf8sjis <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" ) ' ********************************************************** ' 実行 ' ********************************************************** Function FolderSize() ' 対象ディレクトリ target = SelectDir( "対象フォルダを選択して下さい" ) if target = "" then Exit Function end if ' ********************************************************** ' ファイルシステムオブジェクト ' ********************************************************** GetFso ' ********************************************************** ' フォルダオブジェクト取得 ' ********************************************************** Set objFolder = Fso.GetFolder(target) ' ********************************************************** ' サブフォルダコレクション取得 ' ********************************************************** Set colSubFolder = objFolder.SubFolders Set node = document.createElement("TABLE") Call node.setAttribute( "cellspacing", "1" ) ' ********************************************************** ' 一覧 ' ********************************************************** For Each obj in colSubFolder Set elementRow = document.createElement("TR") Set elementCol = document.createElement("TD") Set text = document.createTextNode(obj.Name & "") elementCol.appendChild( text ) elementRow.appendChild( elementCol ) Set elementCol = document.createElement("TD") Call elementCol.setAttribute( "align", "right" ) on error resume next Set text = document.createTextNode(FormatNumber((Fix(obj.Size / 1000) / 1000),3) & " M") if Err.Number <> 0 then Set text = document.createTextNode(Err.Description) end if on error goto 0 elementCol.appendChild( text ) elementRow.appendChild( elementCol ) node.appendChild( elementRow ) Next Set dispArea = document.getElementById("disp") dispArea.appendChild(node) dispArea.innerHTML = dispArea.innerHTML End Function </SCRIPT> <HTML> <HEAD> <META http-equiv="Content-type" content="text/html; charset=Shift_JIS"> <STYLE type="text/css"> * { font-size: 12px; font-family:Verdana,'MS ゴシック'; } BODY { background-color:forestgreen; } TABLE { background-color:black; } TD { padding: 5px; background-color:white; } </STYLE> </HEAD> <BODY> <INPUT type="button" value="実行" onClick='Call FolderSize()'> <br /><br /> <DIV id="disp"></DIV> </BODY> </HTML>
<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" ) ' ********************************************************** ' 実行 ' ********************************************************** Function FolderSize() ' 対象ディレクトリ target = SelectDir( "対象フォルダを選択して下さい" ) if target = "" then Exit Function end if ' ********************************************************** ' ファイルシステムオブジェクト ' ********************************************************** GetFso ' ********************************************************** ' フォルダオブジェクト取得 ' ********************************************************** Set objFolder = Fso.GetFolder(target) ' ********************************************************** ' サブフォルダコレクション取得 ' ********************************************************** Set colSubFolder = objFolder.SubFolders Set node = document.createElement("TABLE") Call node.setAttribute( "cellspacing", "1" ) ' ********************************************************** ' 一覧 ' ********************************************************** For Each obj in colSubFolder Set elementRow = document.createElement("TR") Set elementCol = document.createElement("TD") Set text = document.createTextNode(obj.Name & "") elementCol.appendChild( text ) elementRow.appendChild( elementCol ) Set elementCol = document.createElement("TD") Call elementCol.setAttribute( "align", "right" ) on error resume next Set text = document.createTextNode(FormatNumber((Fix(obj.Size / 1000) / 1000),3) & " M") if Err.Number <> 0 then Set text = document.createTextNode(Err.Description) end if on error goto 0 elementCol.appendChild( text ) elementRow.appendChild( elementCol ) node.appendChild( elementRow ) Next Set dispArea = document.getElementById("disp") dispArea.appendChild(node) dispArea.innerHTML = dispArea.innerHTML End Function </SCRIPT> <HTML> <HEAD> <META http-equiv="Content-type" content="text/html; charset=Shift_JIS"> <STYLE type="text/css"> * { font-size: 12px; font-family:Verdana,'MS ゴシック'; } BODY { background-color:forestgreen; } TABLE { background-color:black; } TD { padding: 5px; background-color:white; } </STYLE> </HEAD> <BODY> <INPUT type="button" value="実行" onClick='Call FolderSize()'> <br /><br /> <DIV id="disp"></DIV> </BODY> </HTML>