ファイル一覧の表示

下記フォルダ内に存在する全てのファイルを検索し、メッセージボックスに表示
するサンプルコードを示す :
  

  
Sub ExampleFileList()

       Dim strMessage As String

       Dim strResult As String
       '
       strResult = Dir("D:\SampleFolder\*.*")

       '

       Do While strResult <> ""

               strMessage = strMessage & strResult & Chr$(13)

               strResult = Dir()
       Loop
       '
       Msgbox(strMessage) 
End Sub
  
実行の結果は、表示されるメッセージボックスは下記の通り :
  

  
ファイルの検索の場合と同様に、フォルダ内の全ファイルを検索する場合も
Dir 関数を用いる。但し、この場合は、第1引数の Pathname には、ワイルド
カード文字を使用して、
  
D:\SampleFolder\*.*
  
または
  
D:\SampleFolder\
  
の何れかで指定する。
  
また、同一フォルダ内を複数回検索する場合は、二回目以降の検索では
Dir 関数の引数を省略する。Do While ～ Loop 内の Dir 関数に引数がない
のは、上記の理由による。
  
【註】例えば、フォルダ内のExcelファイルの一覧を検索したいような場合は、
  

D:\SampleFolder\*.xls

  

と指定する。