メーリングリストアーカイブ [記事番号:4548]

[windows:4548] ｗｉｎｆｍ２０００紹介スクリプト１　フォルダー情報の表示　（winfm2000）

前野です。紹介スクリプト１　フォルダー情報の表示　（winfm2000）
=== 以下を名前を付けて保存します。拡張しはvbsです。　例 vew_fol.vbs
'	実行にオプション必要　winfm2000 マクロ　$P $SN $SS
'	フォルダー情報の表示
'	2001.04.10  
	Option Explicit
Dim n,m,ms(5)
Dim objFS
Dim objArgs
Dim objFolder
Dim objDrive

Set objArgs=WScript.Arguments
n=objArgs.Count
If n<1 Then WScript.Quit

	Set objFS=CreateObject("Scripting.FileSystemObject")
If objFS.FolderExists(objArgs.Item(0)) Then
	Set objFolder=objFS.GetFolder(objArgs.Item(0))
	n=objFolder.Files.Count
	m=objFolder.SubFolders.Count
Dim strDrive
Dim Mark_N, Mark_S ,Available
strDrive = objFS.GetDrivename(objArgs.Item(0))
Set objDrive = objFS.GetDrive(strDrive)
Mark_N = objArgs.Item(1)
Mark_S = objArgs.Item(2)

Available = objDrive.AvailableSpace

Dim Fil,TFilSize,TFolSize,wk_s,wk_t
TFolSize = 0
TFilSize = 0
For Each Fil In objFolder.Files
TFilSize = TfilSize + Fil.Size
Next
For Each fil In objFolder.SubFolders
TFolSize = TfolSize + Fil.Size
Next

ms(0) = objArgs.Item(0) & "には" & m & "個のフォルダと" & n & "個のファイ
ルがあります。" & chr(&h0d)
call TanniSet(TFilSize)
ms(1) = "ファイル合計は" & n & "個 " & wk_s &wk_t & "です。" & chr(&h0d)
call TanniSet(TFolSize)
ms(2) = "フォルダ合計は" & m & "個 " & wk_s & wk_t & "です。" & chr(&h0d)
wk_s = FormatNumber(Mark_N,0)
ms(3) = "マークは" & wk_s & "個" &" "
call TanniSet(CDbl(Mark_S))
ms(3) = ms(3) &"マークファイル容量は" & wk_S & wk_t & " " & chr(&h0d)
call TanniSet(Available)
ms(4) = "使用可能は" & wk_s & wk_t & "　です。"
ms(5) = ms(0)&ms(1)&ms(2) & ms(3) & ms(4)
msgbox ms(5)
end if
WScript.Quit

sub TanniSET(wk_v)
if wk_v > (1024 * 1024 * 1024) then
	wk_v = wk_v / (1024 * 1024 * 1024)
		wk_t = "GB "
else if wk_v > (1024 * 1024) then
	wk_v = wk_v / (1024 * 1024)
		wk_t = "MB "
	else if wk_v > (1024) then
	wk_v = wk_v / (1024)
		wk_t = "KB "
		else
		wk_t = "Byte "
		end if
	end if
end if
wk_s = FormatNumber(wk_v,2)
end sub
		
		
		

Received: from ns01.motojiya.co.jp (ns01.motojiya.co.jp [210.232.167.18])
	by sl.sakura.ne.jp (8.9.2/[SHINGUJI/SAKURA-990115]) with ESMTP id PAA15772
	for <windows@sl.sakura.ne.jp>; Fri, 8 Jun 2001 15:18:29 +0900 (JST)
Received: from maeno ([192.168.117.110])
	by ns01.motojiya.co.jp (8.9.1a/3.7W-98100216) with SMTP id PAA27980
	for <windows@sl.sakura.ne.jp>; Fri, 8 Jun 2001 15:09:52 +0900
Date: Fri, 08 Jun 2001 15:18:23 +0900 (JST)
From: ａｖｉｓ　前野<hmaeno@avis.ne.jp>
To: windows@sl.sakura.ne.jp
Subject: [windows:4548] ｗｉｎｆｍ２０００紹介スクリプト１　フォルダー情報の表示　（winfm2000）
Message-Id: <200106081508.ZO9X77XG@nag.avis.ne.jp>
MIME-Version: 1.0
X-Mailer: Mm-Mail Ver1.44a [Win98 SE]
Content-Type: text/plain; charset=iso-2022-jp
Content-Transfer-Encoding: 7bit
Sender: owner-windows@sl.sakura.ne.jp
X-ML-Sequence: 4548
X-ML-Name: windows
Precedence: bulk
Reply-To: windows@sl.sakura.ne.jp