请教！如何能在导入文件名称的同时将文件的大小也导如啊？（已解决）

sxgaobo

Dim sfd As Folder
    Dim f As File
    Dim r As DAO.Recordset
    Dim cProgress As New cProgressBar

    For Each f In fd.Files
        e = e + 1
    Next
   
    cProgress.SetMaxValue = e
    cProgress.SetProgress = 1
   
    For Each f In fd.Files
   
         Set r = CurrentDb.OpenRecordset("select a from 表;")
             r.AddNew
             r.Fields!a = f.Path
             r.Update
             t = t + 1
               Delay
             cProgress.SetProgress = t
             Me.Repaint
    Next
   
    For Each sfd In fd.SubFolders
        ListFolder sfd
    Next
   
    Delay
    Set cProgress = Nothing
这方法可以导入文件名（论坛里学到的），如何能将文件的大小也同时导入？

sxgaobo

高手救人啊！

asklove

是Size属性(f.size)
对于文件来说，返回以字节为单位的指定文件大小。对于文件夹来说，返回以字节为单位的包含在文件夹中所有文件和子文件夹的大小。

语法

object.Size

object 总是一个 File 或 Folder 对象。

说明

下面的代码用一个 Folder 对象举例说明了 Size 属性的用法：

Sub ShowFolderSize(filespec)
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(filespec)
    s = UCase(f.Name) & " uses " & f.size & " bytes."
    MsgBox s, 0, "Folder Size Info"
End Sub


DateCreated 属性是文件创建日期

sxgaobo

谢谢asklove ！
    我上面那段代码可以将指定文件夹中的每个文件名写入‘表’的‘a’字段中，麻烦您给改下，再将每个文件的大小写入‘表’的‘b’字段中好吗？

asklove

r.AddNew
             r.Fields!a = f.Path
             r.fields!b=f.size   '添加在这里
             r.Update

sxgaobo

不行啊！我试过，报错啊！
提示：这个集合找不到此项目

sxgaobo

ok了！是我的问题，谢谢asklove ！！！