Dim sFile As String
Dim sPath As String
 
sPath = "d:\temp\"
 
sFile = Dir$(sPath & "*james blunt*")
Do While Len(sFile) > 0
  If sFile <> "." And sFile <> ".." Then
    If Len(Text1.Text) > 0 Then Text1.Text = Text1.Text & ", "
    Text1.Text = Text1.Text & sFile
  End If
  sFile = Dir$
Loop

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de