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

Question

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

Answer 1

http://blog.csdn.net/chenhui530/archive/2007/10/03/1810299.aspxPrivate 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 TypeftLastWriteTime本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/chenhui530/archive/2007/10/03/1810299.aspx

Answer 2

引用Microsoft Scripting rutime
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 SubFunction ww(ByVal vfc As Files)
    Dim s As File
    
    For Each s In vfc
        Debug.Print s.Name
        Debug.Print s.DateLastModified
    Next
End Function

Answer 3

Option ExplicitSub Main()
    Const SearchPath As String = "C:\AA\"
    Dim s As String
    
    s = Dir(SearchPath & "*.txt")
    While LenB(s) <> 0
        Debug.Print s, FileDateTime(SearchPath & s)
        s = Dir()
    Wend
End Sub

Answer 4

Private Sub Form_Load()
ShowFileAccessInfo ("c:\1.txt") 
End Sub
Sub ShowFileAccessInfo(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
    s = UCase(filespec) & vbCrLf
    s = s & "创建时间: " & f.DateCreated & vbCrLf
    s = s & "访问时间: " & f.DateLastAccessed & vbCrLf
    s = s & "修改时间: " & f.DateLastModified
    MsgBox s, 0, "File Access Info"
End Sub