求救：查找某目录下的所有的txt文件，并将其路径和文件名输出到一个文本文件，该怎么做呀？

Question

怎么没人回复，DIR函数参数设置,文件输入输出的函数调用.

Answer 1

Dim strPath As String, strFile As String, strFileName As String
Dim strNew As String, strTmp As String, lngF As LongstrPaht = "c:\docDir"
strNew = "c:\New"
strTmp = "C:\txtIndex.txt"strFile = Dir(strPaht & "\*.txt")
If strFile <> "" Then
   strFileName = strFileName & strFile & vbCrLf
   Do Until strFile = ""
      strFile = Dir
      If strFile <> "" Then strFileName = strFileName & strFile & vbCrLf
   Loop
   lngF = FreeFile
   Open strTmp For Output As lngF
        Print #lngF, strFileName
   Close #lngF
End If

Answer 2

找一个file控件，后缀写死为"*.txt",他就可自动找出来了