フォルダ 指定フォルダ内の指定拡張子ファイルの数をカウント

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][フォルダ 指定フォルダ内の指定拡張子ファイルの数をカウント]
Option Explicit


Function NumberExtensionFilesInFolder(tgtPath As StringAs Long
'************************************************
'指定フォルダ内の指定拡張子ファイルの数をカウント
'************************************************
'引数:tgtPath には取得列挙するフォルダフルパスを指定

Dim buf As String, i As Long
Dim 拡張子指定 As String

拡張子指定 = "jpg"

buf = Dir(tgtPath & "\*." & 拡張子指定)
Do While buf <> ""
    i = i + 1
    buf = Dir()
Loop

NumberExtensionFilesInFolder = i

End Function






Production Japan Import Application. Since 1998