フォルダ 指定フォルダ指定拡張子のファイル一覧を変数で返す

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

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][フォルダ 指定フォルダ指定拡張子のファイル一覧を変数で返す]
Option Explicit


Sub FileVariableInFolder(ByRef strFile() As String _
ByVal strFolderPath As StringByVal strExtension As String)
'**************************************************
'指定フォルダ指定拡張子のファイル一覧を変数で返す
'**************************************************

Dim buf As String, i As Long
    i = 0
    buf = Dir(strFolderPath & "\*." & strExtension)
    Do While buf <> ""
        ReDim Preserve strFile(i) As String
        strFile(i) = buf
        i = i + 1
        buf = Dir()
    Loop

End Sub


Private Sub test()
Dim strFile() As String
Dim strFolderPath As String
Dim strExtension As String

strFolderPath = ThisWorkbook.Path & "\xxx\xxxxx\photo"
strExtension = "jpg"
Call FileVariableInFolder(strFile, strFolderPath, strExtension)

MsgBox "最初のファイル名は:" & strFile(LBound(strFile))
MsgBox "最後のファイル名は:" & strFile(UBound(strFile))
MsgBox "合計数:" & UBound(strFile) + 1

End Sub






Production Japan Import Application. Since 1998