VB中怎样取文件夹内文件的文件名

VB中怎样取文件夹内文件的文件名,比如在AA文件夹内有5个txt文档.分别是1.txt ,2.txt ,3.txt  ,4.txt  ,5.txt
我应该怎样取出这几个文件的文件名字,和这些文件的最后修改时间/

---

http://blog.csdn.net/chenhui530/archive/2007/10/03/1810299.aspx

Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MaxLFNPath
    cShortFileName As String * 14
End Type

ftLastWriteTime

本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/chenhui530/archive/2007/10/03/1810299.aspx

---

学习

---

引用Microsoft Scripting rutime
VB code:
Private Sub Command7_Click()
Dim w As Folder
Dim f As New Scripting.FileSystemObject
Dim fc As Files
Set w = f.GetFolder("e:\music\")
Set fc = w.Files

Debug.Print w.Size
'Debug.Print fc.Count
Call ww(fc)
End Sub

Function ww(ByVal vfc As Files)
Dim s As File

For Each s In vfc
Debug.Print s.Name
Debu