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