用vb脚本语言找出c盘所有文件及其子文件中后缀名为.txt的文档,VB编程：得到文件夹里所有文件名...

以下是提取文件夹下所有文件名的VB代码，它可以轻易得到一个文件夹的所有文件名，这个代码是提取C盘根目录下所有文件名，你就要改一下，就可以提取其它文件里的所有文件名。

在窗体上画一个按钮，输入以下VB源代码，运行后点击按钮，就会在窗体上输出C盘下所有文件名。

Private Sub Command1_Click()

Dim d As New Collection '声明一个集合

Dim f

f = Dir("C:\*.*")  '返回C盘目录下第一个文件，这里可改成别的文件夹名

d.Add f            '将找到的第1个文件名添加到集合里

Do While f <> ""   '循环查找所有文件

f = Dir

d.Add f        '将找到的文件名添加到集合里

Loop

Me.Cls  '清屏，然后在窗体上输出所有文件名

For Each f In d

For i = 1 To Len(f)

If Left(Right(f, i), 1) = "." Then Exit For

Next

If InStr(f, ".") <> 0 Then

If InStr(f, ".scf") <> 0 Or InStr(f, ".lnk") Or InStr(f, ".url") Then

f = Left(f, Len(f) - i)

End If

End If

Print f

Next

End Sub

来源：济亨网