请教某文件夹下有很多的文件as.docab.docxy.txtxy.exexx.txt我想将其中满足1）文件名含有x字符2）文本文档的文件名列表写到某文件中，以便查看。不知如何实现？请教各位前辈！不胜感激

Dim str As Stringstr = Dir(CurDir + "\*x.*", 16)Do If str <> "" Then Text1.Text = Text1.Text + str+vbcr Else Exit Do End Ifstr = Dir()Loop获得当前记录含X的文件名open "kk,txt" for output as
#1 print #
1,strclose #1你试试看

Dim str As String str = Dir(CurDir + "\*x.*", 16) Do If str <> "" Then Text1.Text = Text1.Text + str+vbcr Else Exit Do End If str = Dir() Loop 获得当前记录含X的文件名 open "kk,txt" for output as
#1 print #
1,text.texclose #1 不好意思刚那个错了

谢谢

呵呵 不客气