フォルダ 指定フォルダ内の指定拡張子ファイルの指定順ファイル名取得

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][フォルダ 指定フォルダ内の指定拡張子ファイルの指定順ファイル名取得]
Option Explicit


Function FolderExtensionFilesCount(FolderPath As String, Extension As StringAs Long
'************************************************
'指定フォルダ内の指定拡張子ファイルの数をカウント
'************************************************

Dim buf As String, i As Long

buf = Dir(FolderPath & "\*." & Extension)
    Do While buf <> ""
        i = i + 1
        buf = Dir()
    Loop

FolderExtensionFilesCount = i

End Function


Private Sub test()
Dim FolderPath As String, Extension As String
FolderPath = ThisWorkbook.Path
Extension = "jpg"
Debug.Print FolderExtensionFilesCount(FolderPath, Extension)
' 4
End Sub





Production Japan Import Application. Since 1998