在VBA中写一个过程,显示该目录下有多少个excel文件,并将该目录下excel文件名写到该目录下list.txt文件中.

'新建一个工作薄
'运行下面的宏
Sub mulu()
On Error Resume Next
Dim fs, f, f1, fc, s

Set fs = CreateObject("Scripting.FileSystemObject")
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
fd.Show
s = fd.SelectedItems(1)

Set f = fs.GetFolder(s)
Set fc = f.Files
Open s & "\list.txt" For Output As #1
For Each f1 In fc
If Right(f1.Name, 3) <> "xls" Then GoTo nt
Write #1, f1.Name
n = n + 1
nt:
Next
Close #1
MsgBox n
End Sub

利用窗体来得到用户输入的目录，然后用dir(),因为没有实例，自己想办法

Private Sub CommandButton1_Click()
If TextBox1.Value = "" Then
MsgBox "ÇëÊäÈëԴ·¾¶"
GoTo chukou
Else
Dim i, j, myroad, mt
i = 1