2011年4月9日土曜日

ファイル一覧の表示

下記フォルダ内に存在する全てのファイルを検索し、メッセージボックスに表示
するサンプルコードを示す :
  
  
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
  
と指定する。

0 件のコメント:

コメントを投稿