Dir 関数があるので、ヘルプを参照されては。
文書docにパスFilePath,拡張子FileExtが指定されている時のサンプル
Dim Filepath As String, fileName As String
'拡張子条件
If doc.FileExt(0)="" Then
pathName$ = doc.FilePath(0)+"\*.*"
Else
pathName$ = doc.FilePath(0)+"\*."+doc.FileExt(0)
End If
If pathname$="" Then
Messagebox "保存場所が指定されていません" , 16 , "処理を中止します"
End
End If
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
・・・
'添付処理抜粋
Set object = Rtitem.EmbedObject( EMBED_ATTACHMENT, "", doc.FilePath(0)+"\"+filename$, "" )
・・・
fileName$ = Dir$()
Loop