lotusscript 取服务器中指定文件夹里的文件名？该怎么处理

    datadir = session.GetEnvironmentString("Directory", True)+"/domino/html/uploadfile/"+SourceDoc.wordunid(0)+".files"        If Dir$(datadir,16)="" Then    Else                fileName$ =Dir$(datadir+"/*.*",2)           Dim tmp As Integer        tmp=0        Do   While   fileName$   <>   ""              fileName$   =   Dir$()                           If fileName$ <>"" Then                Call rt.embedObject(EMBED_ATTACHMENT,"",datadir+"/"+fileName$,"")            End If                        tmp=tmp+1            If tmp>1000 Then                Exit Do            End If        Loop    End If