vb6 如何快速取得文件夹下的全部文件名？

给定一个文件夹，

①取得裏面所有文件名字，并写到TEXT1中。
②取得指定类型文件名字，并写到TEXT1中。

急用，谁能教教我。谢谢了。

用dirlist和filelist控件，很容易实现的。

Private Sub Command1_Click() Text1.Text = "" File1.Path = "d:\" '指明路径 For i = 0 To File1.ListCount - 1 Text1.Text = Text1.Text + File1.List(i) + vbCrLf Next

需添加filelistbox、text1、text2、command1控件，且text1、text2的multiline属性要改为true。 Private Sub Command1_Click() Text1.Text = "" File1.Path = "d:\" '指明路径 For i = 0 To File1.ListCount - 1 Text1.Text = Text1.Text + File1.List(i) + vbCrLf Next Text2.Text = "" File1.Path = "d:\" '指明路径 File1.Pattern = "*.txt;*.doc" '指定类型 For i = 0 To File1.ListCount - 1 Text2.Text = Text2.Text + File1.List(i) + vbCrLf Next End Sub Private Sub Form_Load() File1.Visible = False End Sub

private sub command1_click() dim n as integer on error resume next f = dir("c:\example\*.htm") do while f <> ""   name "c:\example\" & f as "c:\example\" & f & "l"   n = n + 1   f = dir loop msgbox n & "个文件改名" end sub