フォルダオブジェクトを利用して指定フォルダ内のファイル数をカウントする方法

戻る

動作環境

Windows98/2000/XP

開発環境

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 & " フォルダ内のファイル数は " & myFolder.Files.Count & " です。", vbInformation, "Information"

Set myFolder = Nothing

Set myFSO = Nothing

End Sub