file exist ?

Indsæt denne i et modul:

Public Function GetFiles(stDir As String) As String
Dim stName As String
Dim tmpList As String
On Error GoTo err_FillFiles
'List all files in this folder
stName = Dir(stDir & "\*.*")
Do While stName <> ""
On Error Resume Next
If (GetAttr(stDir & stName) And vbDirectory) <> vbDirectory Then
'File Already open?
If Err.Number = 5 Then Err.Clear
If stName <> "." Or stName <> ".." Then
'FileList.Add Item:=(stName)
tmpList = tmpList & stName & ";"
End If
End If
'Get Next entry
stName = Dir
Loop
GetFiles = Left(tmpList, Len(tmpList) - 1)
exit_FillFiles:
Exit Function
err_FillFiles:
If Err.Number = 71 Then
MsgBox AccessError(Err.Number) _
& "  Prøv venligst igen.  ", vbCritical + vbOKOnly, _
"Fejl ved læsning af drev " & stDir
End If
Resume exit_FillFiles
End Function

Kald modulet således:

Me!Liste0.RowSource = GetFiles("C:\")

jeg har smidt koden i programmet, men hvordan kan jeg få den til at liste kun
de filer som starter med test123 i filnavnet ?
eks af filer.
a.pdf
b.pdf
test1234534.pdf
test123asd.pdf


også skal den nemlige kun vise mig disse  2:
test1234534.pdf
test123asd.pdf

ret
stName = Dir(stDir & "\*.*")
til
stName = Dir(stDir & "\123*.*")

Undskyld

Til
stName = Dir(stDir & "\test123*.*")

Or

Function fIsFileDIR(stPath As String, Optional lngType As Long) As Integer
'Fully qualify stPath

'To check for a file
'  ?fIsFileDIR("c:\winnt\win.ini")

'To check for a Dir
'  ?fIsFileDir("c:\msoffice",vbdirectory)
'
    On Error Resume Next
    fIsFileDIR = Len(Dir(stPath, lngType)) > 0

End Function

Jeg har valgt at bruge mugs løsning samt tilpasning som kabbak har føjet til.
kabbak kunne du ikke også indlægge et svar ! :)

Jeg takker mange gange for hjælpen :)

dinggg.. der gik noget galt , jeg har derfor lagt nogen poin til side for dig.
på :
http://www.eksperten.dk/spm/704877
hvis du smider et svar  :)