フォルダオブジェクトを利用して指定フォルダのサイズを取得する方法

戻る

フォルダオブジェクトを利用して指定フォルダのサイズを取得する方法

動作環境 Windows98/2000 開発環境 Visual Basic 6.0 (+SP5)

説明フォルダオブジェクトを利用して指定フォルダ内のファイル数をカウントします。

用意するもの：標準フォーム(Form1), コマンドボタン(Command1)

'変数の明示的な宣言を強制します。
Option Explicit

Private Sub Command1_Click()

Dim myFSO As Object
Dim myFolder As Object
Dim myFolderPath As String

'対象のフォルダのパスを指定します。(ここでは便宜的に"C:\TMP"とします。)
myFolderPath = "C:\TMP"

Set myFSO = CreateObject("Scripting.FileSystemObject")
Set myFolder = myFSO.GetFolder(myFolderPath)

MsgBox myFolderPath & " フォルダのサイズは " & Format(myFolder.Size, "#,###") & "バイトです。"

Set myFolder = Nothing
Set myFSO = Nothing

End Sub

フォルダオブジェクトを利用して指定フォルダのサイズを取得する方法
動作環境	Windows98/2000	開発環境	Visual Basic 6.0 (+SP5)
説明	フォルダオブジェクトを利用して指定フォルダ内のファイル数をカウントします。
用意するもの：標準フォーム(Form1), コマンドボタン(Command1)
'変数の明示的な宣言を強制します。 Option Explicit Private Sub Command1_Click() Dim myFSO As Object Dim myFolder As Object Dim myFolderPath As String '対象のフォルダのパスを指定します。(ここでは便宜的に"C:\TMP"とします。) myFolderPath = "C:\TMP" Set myFSO = CreateObject("Scripting.FileSystemObject") Set myFolder = myFSO.GetFolder(myFolderPath) MsgBox myFolderPath & " フォルダのサイズは " & Format(myFolder.Size, "#,###") & "バイトです。" Set myFolder = Nothing Set myFSO = Nothing End Sub