VB编程时如何得到文件名，文件大小，创建时间？

Question

文件名  文件大小 创建时间
×××   *****   2005，2，18

Answer 1

'引用Microsoft Scripting Runtime
Option Explicit
Dim wjfilesys As FileSystemObjectPrivate Sub Command1_Click()
Dim fileobj As File
Set fileobj = wjfilesys.GetFile("c:\aa.txt")
Print fileobj.DateLastModified     '最后修改日期
Print fileobj.DateLastAccessed     '最后访问日期
Print fileobj.Attributes           '文件属性
Print fileobj.Size                 '文件大小
Print fileobj.Type                 '文件类型
End SubPrivate Sub Form_Load()
   Set wjfilesys = CreateObject("Scripting.FileSystemObject")
End Sub

Answer 2

Print fileobj.DateCreated         '创建日期
print fileobj.Name                '文件名

Answer 3

debug.print filedatetime("c:\autoexec.bat")
debug.print filelen("c:\autoexec.bat")

Answer 4

Set fileobj = wjfilesys.GetFile("c:\aa.txt")
你把c:\aa.txt换成你要输入的带路径的文件就可以了

Answer 5

'引用Microsoft Scripting Runtime
Option Explicit
Dim wjfilesys As FileSystemObjectPrivate Sub Command1_Click()
Dim fileobj As File
dim Filestr as string
filestr=dir("c:\AAA\*.*")          '指定文件夹下的所有文件
do while not filestr="" 
Set fileobj = wjfilesys.GetFile(filestr)
Print fileobj.DateCreated         '创建日期
print fileobj.Name                '文件名
Print fileobj.DateLastModified     '最后修改日期
Print fileobj.DateLastAccessed     '最后访问日期
Print fileobj.Attributes           '文件属性
Print fileobj.Size                 '文件大小
Print fileobj.Type                 '文件类型
filestr=dir
loop
End SubPrivate Sub Form_Load()
   Set wjfilesys = CreateObject("Scripting.FileSystemObject")
End Sub

Answer 6

Option ExplicitPrivate Sub Command1_Click()
    Dim Str As String
    Dim Arr() As String
    Dim i As Long
    Str = Text1.Text
    If Right(Str, 1) <> "\" Then Str = Str & "\"
    If GetFileList(Str, Arr) Then
        For i = LBound(Arr) To UBound(Arr)
            If Len(Arr(i)) > 0 Then
                List1.AddItem Arr(i)
                List2.AddItem Format(FileLen(Str & Arr(i)) / 1024, "#.#KB")
                List3.AddItem FileDateTime(Str & Arr(i))
            End If
        Next
    End If
    MsgBox "共有：" & List1.ListCount & " 个文件"
End Sub'参    数：GetFileList(指定文件夹路径, 文件数组,返回的文件类型)
Private Function GetFileList(ByVal Path As String, ByRef Filename() As String, Optional fExp As String = "*.*") As Boolean
    Dim fName As String, i As Long
    If Right$(Path, 1) <> "\" Then Path = Path & "\"
    fName = Dir$(Path & fExp)
    i = 0
    Do While fName <> ""
        ReDim Preserve Filename(i) As String
        Filename(i) = fName
        fName = Dir$
        i = i + 1
    Loop
    If i <> 0 Then
        ReDim Preserve Filename(i - 1) As String
        GetFileList = True
    Else
        GetFileList = False
    End If
End Function
----------------------------------
Text1,Command,List1,List2,List3各一个，这是个老问题，看下FAQ就行。