「指定フォルダの指定ファイル一覧を取得」の編集履歴（バックアップ）一覧はこちら

「指定フォルダの指定ファイル一覧を取得」(2013/05/08 (水) 23:55:29) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

***小見出し

- ソース
 ' GetFileList
 ' 指定フォルダ内の指定ファイルのリストを作成する
 ' 引数：あり
 ' iFolderPath   ：　フォルダのフルパス
 ' iFilePattern  ：　検索ファイルのパターン
 ' 戻り値：Collection：条件に一致するファイルのリスト
 Public Function GetFileList(ByVal iFolderPath As String, ByVal iFilePattern As String) As Collection
     Dim resultCollection As Collection
     Dim fileName As String
     
     Set resultCollection = New Collection
     fileName = Dir(iFolderPath & iFilePattern, vbNormal)
     
     ' ファイルが存在する限りリストに格納
     Do While fileName <> ""
         resultCollection.Add fileName
         fileName = Dir()
     Loop
     
     ' リストの返却
     Set GetFileList = resultCollection
 End Function
 

- 呼び出しサンプル


[[トップ]]

***指定フォルダ内の指定ファイル

- ソース
 ' GetFileList
 ' 指定フォルダ内の指定ファイルのリストを作成する
 ' 引数：あり
 ' iFolderPath   ：　フォルダのフルパス
 ' iFilePattern  ：　検索ファイルのパターン
 ' 戻り値：Collection：条件に一致するファイルのリスト
 Public Function GetFileList(ByVal iFolderPath As String, ByVal iFilePattern As String) As Collection
     Dim resultCollection As Collection
     Dim fileName As String
     
     Set resultCollection = New Collection
     fileName = Dir(iFolderPath & iFilePattern, vbNormal)
     
     ' ファイルが存在する限りリストに格納
     Do While fileName <> ""
         resultCollection.Add fileName
         fileName = Dir()
     Loop
     
     ' リストの返却
     Set GetFileList = resultCollection
 End Function
 

- 呼び出しサンプル

 Public Sub test_GetFileList()
    Dim colObj As Collection
    Set colObj = GetFileList("C:\TEST\", "*.txt")
    MsgBox colObj.Item(1)
 End Sub


[[トップ]]