Office中国论坛/Access中国论坛

标题: 请教！如何能在导入文件名称的同时将文件的大小也导如啊？（已解决） [打印本页]

作者: sxgaobo 时间: 2009-8-21 10:21
标题: 请教！如何能在导入文件名称的同时将文件的大小也导如啊？（已解决）
本帖最后由 sxgaobo 于 2009-8-23 15:43 编辑

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 时间: 2009-8-22 10:55
高手救人啊！

作者: asklove 时间: 2009-8-22 12:58
本帖最后由 asklove 于 2009-8-22 13:00 编辑

是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 时间: 2009-8-22 15:01
谢谢asklove ！
我上面那段代码可以将指定文件夹中的每个文件名写入‘表’的‘a’字段中，麻烦您给改下，再将每个文件的大小写入‘表’的‘b’字段中好吗？

作者: asklove 时间: 2009-8-22 15:37
r.AddNew
         r.Fields!a = f.Path
         r.fields!b=f.size '添加在这里
         r.Update

作者: sxgaobo 时间: 2009-8-23 10:13
不行啊！我试过，报错啊！
提示：这个集合找不到此项目

作者: sxgaobo 时间: 2009-8-23 15:42
ok了！是我的问题，谢谢asklove ！！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)