如何用语句判断一个文件的大小？

Question

如何用语句判断一个文件的大小？
我在VBA中想判断一个文件的大小，然后根据大小在复制时用进度条观察？谢谢！是在VB中，呵呵！

Answer 1

FileLen提示调用的参数错误，我是这样的dim dtoal as long
dotal=Filelen("\\"& dooo &"\doo\sal.mdb")...
Filecopy (...)
然后执行时便出现dotal=Filelen("\\"& dooo &"\doo\sal.mdb")调用参数错误，当时我的网络是正常的，只是sal.mdb是打开的，但也不至于提示调用参数错误，因为文件打开时应该提示拒绝权限而不是调 用参数错误。

Answer 2

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
    ("Select FileSize from CIM_Datafile Where name = 'd:\\user1.sql'")
For Each objFile in colFiles
    Wscript.Echo "File size: " & objFile.FileSize
Next