ファイル数・サブフォルダー数・総バイト数を取得
 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
指定のフォルダーのファイル数・サブフォルダー数・総バイト数を取得　　　(146)
使用する前に、[プロジェクト]→[参照設定]で Microsoft Scripting Runtime の参照にチェックを入
れておいて下さい。
そして Form に CommandButton １個とLabelを３個 貼り付けておいて下さい。
　 Option Explicit　　 'SampleNo=146　WindowsXP VB6.0(SP5) 2002.06.06

Private Sub Command1_Click()
　　Dim Fso　　　　As New FileSystemObject
　　Dim RetValue　 As Long
　　Dim FolderSize As Double

　　RetValue = Fso.GetFolder("c:\windows").Files.Count
　　Label1.Caption = "ファイルは " & RetValue & " 個有りました。"

　　RetValue = Fso.GetFolder("c:\windows").SubFolders.Count
　　Label2.Caption = "サブフォルダーは " & RetValue & " 個有りました。"

　　FolderSize = Fso.GetFolder("c:\windows").Size
　　Label3.Caption = "フォルダーのサイズは " & _
　　　　　　　　　　　　Format(FolderSize, "#,### バイトです。")

End Sub

　
　　　　






2003/03/03